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Section  1.0 


SUMHAKY 


Results  of  s  third  end  final  phase  in  a  general  study  of  the 
structural  dynastic  properties  of  tactical  missile  joints  are  presented. 
This  effort,  undertaken  by  the  Pomona  Division  of  General  Dynamics  for 
the  naval  Air  Systems  Command,  has  been  Intended  to  provide  a  better 
understanding  of  mechanical  joint  effects  on  missile  dynamic  response 
and  improved  methods  for  predicting  and  representing  their  character- 
istics  in  system  simulation  and  response  studies. 

Highlights  of  the  results  obtained  in  the  first  two  study  phases 
(References  1  and  2)  are  reviewed,  covering  an  Industry  survey,  classi¬ 
fication  scheme,  and  parametric  evaluation  of  Joint  compliance  effects. 
Finite  element  structural  analysis  techniques  started  in  Phase  1  and 
completed  in  this  final  study  phase  are  shown  to  be  capable  of  providing 
reliable  estimates  of  joint  compliance  in  complex  actual  missile  struc¬ 
tures  . 


Experimental  methods  are  reviewed  and  a  joint  compliance  extrac¬ 
tion  code  designed  to  solve  for  joint  properties  from  modal  test  data 
is  described  in  some  detail.  This  method,  also  started  in  the  Phase  1 
study,  has  been  refined  during  the  present  phase  to  improve  convergence 
and  user  convenience.  A  user's  manual  for  this  code  is  Included  as  an 
Appendix. 

An  exploratory  study  of  missile  join::  self-induced  vibration  is 
presented  together  with  an  initial  evaluation  of  some  promising  methods 
for  suppression  and  control.  The  report  concludes  with  a  discussion  of 
a  proposed  rating  system  for  tactical  missile  joints  with  the  objective 
of  offering  the  designer  some  perspective  on  integrating  the  many 
considerations  such  as  strength,  produclbillty,  and  maintainability,  in 
addition  to  compliance,  into  overall  system  requirements. 


Section  2.0 


INTRODUCTION 


The  structural  dynamic  properties  of  tactical  missile  joints  can 
play  an  extraordinarily  Important  role  in  weapon  system  structural 
response  characteristics.  This  report  deals  with  the  third  and  final 
phase  of  an  exploratory  study  oi  the  primary  structural  dynamic 
characteristics  of  missile  mechanical  joints  and  the  analytical  and 
experimental  tools  identified  and  developed  for  predicting  their 
behavior. 

The  most  conspicuous  attribute  of  the  average  tactical  missile 
joint  is  flexural  compliance  under  applied  bending  moment.  The  first 
phase  study  was  largely  devoted  to  an  examination  of  this  characteristic 
starting  with  a  literature  search  and  an  industry  survey  to  sample 
others' experience  followed  by  a  parametric  study  of  joint  compliance 
effects,  elastic  coupling,  the  significance  of  stiffness  discontinuities 
and  the  importance  of  considering  actual  load  paths  through  joint 
elements.  Based  on  the  industrv  survey,  it  was  concluded  that  investiga¬ 
tors  generally  represent  missile  joints  in  analytical  modeling  by  flexural 
springs  selected  by  trial  and  error  to  match  ...easureJ  response  character¬ 
istics.  Joint  compliance  effects  were  typically  found  to  account  for 
more  than  30  percent  of  the  total  elastic  deformation  of  a  missile  in 
its  primary  bending  modes. 

A  joint  classification  scheme  proposed  in  a  NASA  study  reported 
in  Reference  3  suggested  factors  of  ten  increase  in  compliance  progress¬ 
ing  from  each  level  -  Excellent,  Good,  Moderate,  and  Loose.  Thus,  a 
"Moderate"  joint  would  be  10  times  as  complia.it  as  a  "Good"  joint  and 
100  times  as  compliant  as  an  "Excellent"  joint.  Viewed  in  terms  of  stiff¬ 
ness  loss  in  a  typical  missile  airframe,  a  "Good"  joint  represents  a 
local  reduction  in  section  properties  of  approximately  60  percent  over  a  span 
of  one  half  body  diameter,  A  "Moderate"  Joint  would  corresponding1;, 
rcuuce  local  section  properties  95  percent.  Such  gross  structural 
inefficiencies  are  attributed  to  poor  distribution  of  load  paths  through 
joint  interfaces.  Figure  2-1  shows  the  powerful  influence  of  Joint 
compliance  on  the  first  mode  frequency  of  a  missile  idealised  as  a 
uniform  beam. 

From  the  standpoint  of  the  structural  dynamic  analyst  charged 
with  the  responsibility  for  developing  adequate  math  models  in  develop¬ 
mental  studies,  methods  for  accurately  estimating  joint  compliance  are 
of  paramount  Importance.  The  advent  of  fj.iite  element  structural  analy¬ 
sis  techniques  has  offered  some  very  promising  tools  for  realistically 
representing  detailed  elastic  behavior  with  joint  elements.  Finite  ele¬ 
ment  modeling  of  idealized  joint"  was  started  in  an  exploratory  effort 
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during  Phase  1  and  -  based  on  encouraging  results  -  considerably 
expanded  during  Phase  2  to  encompass  an  actual  missile  joint  design  for 
which  accurate  compliance  test  data  were  available  for  correlation 
purposes.  This  effort  has  been  continued  during  the  present  and  final 
study  phase  with  emphasis  on  computational  economy  and  is  presented  in 
Section  3.0. 

Experimental  methods  when  test  hardware  Is  available  offer 
another  important  approach  to  the  determination  of  missile  joint 
structural  dynamic  properties.  An  Ideal  test  configuration  for  evalua¬ 
ting  joint  properties  Is  considered  to  be  a  simple  uniform  structure 
on  a  free-free  suspension  to  avoid  external  constraints  and  with  the 
subject  joint  located  at  mid-span.  The  joint  bending  compliance  then 
has  a  dominant  effect  on  odd  numbered  modes  (1,  3,  .  .  .  )  and  the 
joint  shear  compliance  is  exposed  by  even  numbered  modes  (2,  4,  .  .  .). 
Simple  tests  were  performed  during  Phase  1  on  tubular  models  to  illus¬ 
trate  the  basic  test  approach  and  to  explore  the  effects  of  load  path 
discontinuities.  Actual  missile  joint  hardware  was  employed  In  a 
series  of  four  similar  tests  during  the  Phase  2  study,  with  data  on  two 
joint  configurations  being  provided  in  a  colloboratlve  effort  by  Haval 
Weapon  Center,  China  Lake  personnel.  One  joint  test  of  particular 
Interest  Involved  a  shear  joint  with  18  radial  screws.  Joint  compliance 
was  evaluated  parametrically  as  a  function  of  number  of  fasteners, 
producing  the  surprisingly  consistent  and  well  ordered  results  shown  In 
Figure  2-2.  An  exploratory  generalisation  of  this  shear  joint  behavior 
is  shown  in  Figure  2-3  with  the  cautionary  comment  that  the  derived 
compliance  expression  must  be  viewed  with  some  skepticism  since  It 
considers  only  joint  diameter  and  number  of  fasteners.  Test  data  for 
two  unrelated  specimens  are  compared  with  the  empirical  compliance 
expression  In  the  figure,  however,  and  show  better  agreement  than  might 
be  expected.  The  8  fastener  data  point  Is  taken  from  the  8-inch 
diameter  shear  joint  tested  at  the  Naval  Weapons  Center,  China  Lake  and 
reported  in  the  Phase  2  study.  The  3  and  6  fastener  data  points  are 
taken  from  the  segmented  tube  test  data  in  Phase  1  extrapolated  to  a 
"fastener"  arc  length  of  2  degrees  in  order  to  correspond  to  the  1/4 
Inch  bolts  used  with  the  13.5  Inch  diameter  data  source. 

The  opportunity  to  test  single  Joints  in  the  "ideal"  configura¬ 
tion  is  the  exception  rather  thar  the  rule,  however,  and  more  generally 
dynamic  testing  Is  performed  on  total  airframes  with  many  Joints.  The 
traditional  approach  consists  of  hand  tuning  compliance  values  to 
produce  matching  results  between  the  mathematical  model  and  measured  mode 
shapes  and  frequencies.  Since  this  is  a  laborious,  time  consuming,  and 
often  frustrating  task,  an  automated  and  systematic  approach  is  desirable. 
To  these  ends,  an  exploratory  effort  based  on  the  optimization  method  of 
steepest  descent  was  developed  In  Phase  1  of  the  study.  This  method  of 
extracting  joint  compliance  values  from  a  set  of  measured  missile 
elastic  mode  frequencies  and  shapes  was  shown  to  be  feasible.  However, 
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various  limitations  In  the  Implemented  method  precluded  full  develop¬ 
ment.  A  more  general  approach  developed  by  Hall,  Calkin  and  Sholar, 
Reference  4,  appeared  in  the  literature  and  la  F!iase  2  their  method  was 
applied  to  the  problem  of  extracting  joint  compliances.  The  result  is 
a  digital  computer  code.  In  Phase  3  refinements  were  added  to  the 
joint  compliance  extraction  technique  code  to  increase  its  utility  and 
a  user’s  genual  was  prepared  for  the  code.  Section  4  and  the  Appendix 
of  the  present  report  present  the  Phase  3  efforts  on  the  joint  com¬ 
pliance  extraction  technique. 

Another  important  coaracterisfic  of  missile  airframe  joints  Is 
that  of  self-induced  vibration.  This  behavior  is  most  usually  asso¬ 
ciated  with  joint  designs  having  inherently  low  interface  prelbads,  and 
its  presence  can  create  unnecessarily  severe  environments  in  laboratory 
testing  as  well  as  in  both  captive  and  free-f light.  Section  5  of  this 
report  describes  an  investigation  of  this  phenomena  covering  both  full 
scale  and  model  exploratory  testing. 

The  final  section  of  this  report,  Section  6,  Illustrates  a 
method  of  integrating  the  structural  dynamic  properties  of  joints  with 
other  important  mechanical  attributes  that  airframe  joints  must  possess 
to  meet  overall  system  requirements. 
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Section  3.0 


JOINT  COMPLIANCE  ANALYSIS 


Finite  element  structural  analysis  methods  have  been  shown  in 
earlier  study  phases  to  offer  considerable  promise  as  means  of  predicting 
tactical  missile  mechanical  joint  properties.  In  the  Phase  2  portion  of 
the  investigation  a  finite  element  type  of  analysis  was  performed  on  an 
eighteen  fastener  shear  joint.  The  analysis  made  use  of  the  NASTRAN 
computer  program.  The  math  model  used  described  the  structure  on  each 
siie  of  the  joint  by  means  of  a  set  of  conical  shell  elements.  Bolts 
were  then  described  by  discrete  springs.  Each  spring  constrains  two 
corresponding  points  on  each  side  of  the  joint.  The  solution  process  is 
based  on  a  Fourier  series  expansion  about  the  circumference.  Thus  forces 
and  displacements  are  determined  by  summing  a  set  of  harmonic  components. 
The  compliance  associated  with  various,  harmonics  can  be  zero.  The  zero 
compliance  harmonics  are  well  defined  for  uniform  bolt  patterns.  Thus 
for  a  joint  with  n  bolts,  the  compliance  associated  with  all  harmonics 
are  zero  except  for  harmonics  0,  1,  n-1,  n  +  1,  2  n-1,  2  n  +  1,  .  .  .  . 

In  °hase  2  the  problem  was  formulated  and  computations  were 
performed  entirely  on  NASTRAN.  The  cost  per  computer  run  was  quite  high 
even  though  only  twelve  harmonics  were  used.;  Two  effects  played  a  role 
in  the  high  cost.  If  the  structure  was  geometrically  axisymmetric  the 
stiffness  matrix  for  each  harmonic  would  be  uncoupled  from  all  others, 
however,  due  to  the  bolts  the  structure  is  asymmetric.  Thus  a  coupling 
between  harmonics  results  with  a  corresponding  high  computer  solution 
time.  The  problem  is  aggravated  to  a  considerable  degree  by  the  fact  that 
the  zero  harmonics  cannot  be  excluded  from  the  solution  process.  Thus  to 
solve  this  problem  using  say  50  harmonics  is  almost  prc  ibitive. 

On  examining  this  problem  it  became  apparent  that  it  was  not 
inherently  expensive  but  rather  due  to  limitations  within  the  NASTRAN 
program.  It  also  became  apparent  that  a  small  efficient  computer  program 
could  be  written  which  used  certain  NASTRAN  utputs.  This  was  done  as 
part  of  the  Phase  3  finite  element  analysis  effort. 

The  new  computer  program  uses  NASTRAN  generated  stiffness 
coefficients  associated  with  each  harmonic  and  the  structure  on  each  side 
of  the  joint. 

3.1  PROBLEM  FORMULATION 

Consider  two  axisymmetric  shells  with  a  common  axis  of  symmetry 
which  are  attached  together  with  respect  to  a  discrete  set  of  points 
around  the  circumference  as  shown  in  Figure  3-1. 


-w#»v  *&fi» 


Figure  3-1.  Sketch  Showing  Two  Axlsyumetrlc  Shells  Attached 
at  a  Discrete  Set  of  Points 

We  require  the  attachments  to  be  positioned  so  that  they  are  synssetrlc 
with  respect  to  a  plane  of  symmetry  which  Includes  the  missile  longitudi¬ 
nal  axis.  The  attachment  forces  do  not  act  at  points  but  rather  over  a 
small  area  defined  by  the  thickness  of  the  shell  and  an  arc  length 
defined  by  the  enclosed  angle  €  as  shown  in  Figure  3-2. 
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c r{+)  ■  2  a.  cos»o 


On  doing  so  we  obtain 


o-f'tf)  -  Z  *** 

r  C  Ma  |  ' 


0.1) 


(3.2) 


A*  *  -“jf  &"(*£/*) 


(3.3) 


The  use  of  the  cosine  series  imposes  the  requirement  that  the  horizontal 
plane  be  a  plane  of  symmetry  The  quantity  has  units  of  load  per 

unit  arc  length.  The  quantity  f<»  -  *  Cr^)  can  be  expressed  in  the 
form 

■f  <^)  *  -r,  COS^O)  +  COS  (2.*)+  rBCOS( 3U®V*»*  (3.4) 


where 


(3.5) 


It  can  be  Interpreted  as  a  generalized  force  associated  with  the  n  th 
harmonic.  Let  *V,1  be  the  generalized  force  associated  with  the  n  th 
harmonic  and  the  i  th  bolt.  Let  the  joint  have  b  bolts  and  let  ^  be 
the  force  resultant  for  the  1  th  bolt  acting  at  Oi  .  Then  the  harmonic 
generalized  forces  associated  with  the  set  of  bolts  used  on  the  Joint 


h  b 

9'"  ( *  e/z)  <»<) 

4*/  4*/ 


(3.6) 


Let  us  define  a  matrix  with  elements  a, 


*</  “  ~fe  O&b  C”*J>  <3 

Let  f^  and  p.  respectively  be  elements  of  column  vectors  £f.J  and 
£p.?  .  Then*1  from  (3.6)  and  (3.7)  one  can  see  that  the  following 
relationship  holds 


(3.7) 
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&?  “  [a-j  ]  M 


(3.8) 


Let  [s^/jbe  a  diagonal  matrix  where  element  Sy  la  a  spring  stiffness 
constant  associated  with  the  1  th  bolt  and  let  be  a  column  matrix 

associated  with  bolt  elongations.  Then  the  following  relationship  holds. 

fol  -  [=a]  fr]  <3-’> 

If  we  could  assign  a  point  on  the  circumference  to  each  bolt  then 
bolt  elongation  could  be  expressed  by  a  set  of  generalised  displacements 
Un  as  follows: 

y£  S  2  (3.10) 

#»«/ 


Since  the  bolt  load  is  associated  with  an  area  as  shown  in  Figure  3-2 
wf  cannot  associate  the  bolt  displacement  with  only  one  point.  We  will 
give  an  Indirect  definition  which  will  implicitly  contain  an  averaging 
over  this  area.  Let  the  problem  be  limited  to  m  harmonics  and  let 
T&ij  1  he  an  m  by  b  matrix  which  relates  bolt  elongations  £v*-^  to 
generalized  harmonic  displacements  as  follows 

hi  -  fc.y]  K  ?  <3-u> 

Then  virtual  bolt  elongations  {d*  *<■]  and  virtual  generalised  displacements 
(fMjJ  are  related  by 

{f«i]  -  [«</]  A  (3.12) 

We  require  the  following  to  hold 

-  tofM  (3.13) 

That  is,  we  require  the  virtual  work  associated  with  virtual  elongation 
If  to  be  equal  to  the  virtual  work  associated  with  the  corresponding 
generalised  variables.  On  substituting  from  (3.8)  and  (3.12)  into  (3.13) 
we  obtain 
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(3.14) 


Equation  (3.14)  can  hold  for  all  virtual  displacements  W#;?  and  all  loads 
£/>.}  if  .nd  only  If  1  ’ 

lC  J  "  [»</]r  (3-15) 


Therefore  from  (3.7)  and  (3.15)  it  follows  that 

e,y  =  s/v^cojCh*,)  (3.16) 


From  (3.8),  (3.9),  (3.11),  and  (3.15)  It  follows  that 

&}  ~  Ca<>! i  r^t/  ? 

-  MW  ft,! 

Let 

[*«*]  “  fcj  D*J  [A*J  (3.18) 


Thus  P,J  Is  a  stiffness  matrix  which  describes  the  stiffness  of  the 
set  of  joint  bolts  with  respect  to  the  generalized  (harmonic)  variables 
ft?  M  ■  Then  (3.17)  has  the  form 

ft?  “  P</3  K?  (3-13) 


We  will  now  define  the  variables  associated  with  the  axlsymmetrlc 
structures  on  each  side  of  the  joint.  These  structures  will  be  Inter¬ 
preted  as  two  free  structures  whose  relative  displacements  are  constrained 
by  the  bolt  attachments.  We  will  assume  that  there  Is  no  relative  radial 
or  circumferential  motion  across  the  joint.  Since  the  two  structures  are 
unconstrained  except  by  the  joint  It  follows  that  the  zero  and  first 
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5Pfc  - 


harmonic*  of  longitudinal  ralative  displacements  are  respectively 
associated  with  relative  longitudinal  translation  and  pitch  rigid  body 
motions.  The  higher  harmonics  on  the  other  hand  are  associated  with 
shell  deformation. 


Using  NASTRAN  ve  can  compute  the  displacement  U *  associated  with 
each  higher  harmonic  load  ■f, %  acting  on  the  joint.  He  can  then  compute 
two  sets  of  stiffness  coefficients  associated  with  each  of  the  structures 
as  follows: 


(3.20) 


where  the  single  and  double  primes  are  used  to  distinguish  the  two 
structures.  From  the  above  discussion  it  follows  that 

(3.21) 


The  joint  displacements  can  be  described  by  relative  generalised  (harmonic) 
displacement  parameters  described  earlier.  They  are  related  to  the 
harmonic  displacement  parameters  for  the  two  structures  as  follows: 

U.  »  M/  -  u!  (3.22) 


Then  from  (3.17)  and  (3.19)  it  follows  that 


U 


(3.23) 


This  is  a  consequence  of  the  orthogonality  of  the  set  of  cosine  func¬ 
tions.  Similarly  joint  equilibrium  and  harmonic  function  orthogonality 
requires 


■f/  =  “  -  -fi  (3.24) 

where  indicates  that  the  prime  will  not  be  required  below.  Substi¬ 

tuting  (3.24)  into  (3.23)  and  simplifying  we  obtain 
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(3.25) 


(3.26) 


(3.27) 


The  parameters  describe  the  effective  stiffness  associated  with 

the  set  of  harmonics  for  the  axisyranetrle  structure  on  both  sides  of  the 
joint.  Let  Z*‘H  be  a  diagonal  matrix  with  diagonal  elements  Kn  . 
Then  (3.26)  can  be  expressed  in  the  following  matrix  form 

foj  *  CO  f"y{  <3-28> 

Note  that 

*  O  (3.29) 

Partition  equation  (3.19)  and  (3.28)  as  follows 

►  «  ^  >•  (3.30) 

frl J  [CO,,  [*4j  [{“j\ 

{ 

From  (3.30)  and  (3.31)  we  obtain 


(3.32) 
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»***f1W«*' 


v<kw^  1  J*,’  ■JUJtf*JW* 


& 

r 


*  tevU".-!* 

(3.33) 

to,-  WLM. 

(3.34) 

From  (3.33)  and  (3.34)  we  obtain 

ML  =  [[■*#]„- 

f3.35) 

On  substituting  (3.35)  into  (3.32)  we  obtain 

*  [s.v3„  [C^]„  -  ftjJ  [»«],,)  (3  36) 

Let  A,,  equal  the  quantity  in  brackets.  Then  (3.36)  has  the  form 
H 


*// 


U. 


(3.37) 


The  parameter  U,  is  a  measure  of  the  maximum  relative  displacement  around 
the  circumference.  We  wish  to  relate  the  joint  stiffness  to  more  common 
parameters  M  and  4  which  correspond  to  joir.c  bending  moment  and  joint 
relative  rotation.  Now  U,  and  ^  are  related  by 

U,  «  *4  (3.38) 

where  r  is  defined  in  Figure  3-2.  We  will  define  the  relationship 
between  M  and  f.  by  requiring  that  the  following  hold  for  all  virtual 
displacements  £U,  and  . 

AT  »  -F,  fU,  (3.39) 

On  substituting  (3.38)  into  (3.39)  we  obtain 

»  -TrS#  (3.40) 

For  the  above  to  hold  for  all  virtual  changes  it  follows  that 

Af  -  rf  (3.41) 
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On  substituting  (3.38)  Into  (3.37)  and  the  resultant  into  (3.41)  we 
obtain 


M  -  tr2  (3.42) 

"he  equivalent  joint  stiffness  designated  by  H  is  related  by 

"  '  r*  CS«  [&J„-  IXx]J  'CM,,)  <3-43> 

3.2  TEST  CASE  AND  RESULTS 

A  computer  program  which  can  compute  the  effective  Joint  stiffness 
as  described  above  was  written.  The  structural  configuration  used  in  the 
Phase  2  study  was  us<.d  in  this  study  since  comparative  test  data  were 
available.  Figure  3-3  describes  the  joint  and  Figure  3-4  describes  the 
finite  element  model  of  shell  elements  used  in  all  the  NASTRAN  analyses. 

The  NASTRAN  computer  program  was  used  to  compute  the  longitudinal 
harmonic  stiffness  coefficient  designated  by  K'  and  K’1^  for  the  first 
108  harmonics.  These  stiffness  coefficients  aregiven  in  Table  3-1  and 
a  log-log  plot  of  the  stiffness  coefficient  versus  harmonic  number  is 
given  in  Figure  3-5 . 

As  can  be  seen  from  Figure  3-5  the  value  of  stiffness  appears  to 
approach  a  straight  line  for  higher  values  of  harmonic  number.  A  straight 
line  on  a  log-log  plot  implies  the  following  continuous  function 
relationship 


K 


(3.44) 


where  K  is  the  dependent  stiffness  variable,  n  is  the  Independent 
harmonic  number  variable,  (K^,  n^)  is  a  point  on  the  line  and  oc  is  a 
coefficient  related  by 


(3.45) 


where  (Kjt  n«)  is  a  point  on  the  line.  For  the  two  lines  in  Figure  3-5 
associated  with  the  two  structures  connected  by  the  joint,  the  data  used 
to  compute  higher  harmonic  stiffness  coefficients  are  given  in  Table  3-2. 
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Table  3-2 

Data  Used  In  Equation  (3.44)  to  Compute  Stiffness 
Coefficients  for  Harmonics  Greater  than  108 


Structure  1 

Structure  2 

*1 

1.57  x  107 

4.35  x  107 

K2 

3.32  x  108 

9.90  x  108 

nl 

10 

10 

°2 

100 

100 

As  pointed  out  earlier  many  harmonics  do  not  Influence  the 
computation.  Table  3-3  shows  the  harmonics  which  Influence  the  computa¬ 
tions  as  a  function  of  number  of  fasteners. 

Each  bolt  has  an  effective  arc  length  ever  which  It  acts.  As 
noted  earlier  this  arc  length  is  defined  by  the  enclosed  angle  €  .  Let 
us  define  the  quantity  R  as  the  ratio  of  £  over  the  angle  subtended 
by  the  bolt.  The  R  can  be  Interpreted  as  the  effective  number  of 
bolt  diameters  over  which  the  bolt  load  distributes  at  the  joint. 

The  larger  the  value  of  R  the  higher  the  Joint  stiffness  will 
be.  To  establish  correct  values  of  R  computed  values  of  stiffness  were 
compared  to  measured  results  obtained  in  the  Phase  2  study.  Table  3-4 
summarizes  the  Phase  2  measured  values  of  stiffness. 


Table  3-4 

Phase  2  Measured  Values  of  Stiffness  for  Various 
Numbers  of  Fasteners  (x  10*'  Inch  Pounds  per  Radian) 


Number  of  Fasteners 

Stiffness 

3 

0.358 

6 

0  971 

9 

1.680 

12 

2.575  (interpolated) 

18 

4.440 
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Table  3-5  gives  computed  values  of  joint  stiffness  for  the  three 
fastener  joint,  for  various  values  of  R  and  for  different  values  of 
the  highest  harmonic  used  in  the  calculations.  The  value  of  R  equal 
to  6.24  gives  results  which  are  almost  equal  to  the  measured  values. 

Table  3-6  shows  results  for  3,  6,  9  and  18  fastener  cases  using  R  equal 
to  6.24.  Although  the  results  match  the  experimental  values  for  the 
three  fastener  case,  they  are  quite  In  error  for  the  18  fastener  case. 

The  compliances  of  the  18  fastener  case  for  various  values  of  R  are 
given  in  Table  3-7.  As  can  be  seen  a  value  of  R  close  to  1.5  is 
required  if  the  18  fastener  case  Is  to  match  measured  results.  Using  a 
linear  Interpolation  between  the  compliance  values  for  R  equal  to  1.5 
and  2.0  we  conclude  that  a  value  of  R  equal  to  1.544  will  give  a  value 
very  close  to  the  measured  compliance  .  Table  3-8  gives  results  for  R  equal 
to  1.544.  Since  R  equal  to  6.24  gives  correct  values  for  the  3  fastener 
case  and  R  equal  to  1.544  gives  correct  values  for  the  18  fastener  case, 
we  used  a  linear  Interpolation  to  establish  values  of  R  for  the  6,  9 
and  12  fastener  case.  Computed  joint  stiffness  for  these  cases  are  given 
in  Table  3-9.  Figure  3-6  gives  curves  of  stiffness  versus  number  of 
fasteners  of  the  measured  results  and  of  the  computed  results  for  R 
equal  to  1.544  and  6.24. 

As  can  be  seen  from  the  results  described  above  there  does  not 
appear  to  be  a  simple  way  of  describing  bolt  shell  Interaction.  For  the 
joint  in  question  one  shell  surface  overlaps  the  other  and  the  bolt 
load  acts  on  the  two  contacting  surfaces.  The  above  results  imply  that 
the  fewer  the  bolts  the  more  compliant  the  joint  but  the  larger  the 
effective  contact  area  between  the  shells  becomes.  The  results  suggest 
that  a  more  detailed  analytical  description  of  the  bolt  area  is  required. 

Figure  3-7  shows  the  ~urve  of  joint  stiffness  versus  R  for  the 
three  fastener  case.  A  dashed  straight  line  referred  to  as  the  "reference 
line"  is  also  shown  in  this  figure.  Before  continuing  our  discussion  of 
this  curve  note  Figure  3-8  which  shows  curves  of  stiffness  versus  highest 
harmonic  used  in  the  computation  for  various  values  of  R.  In  essence 
these  curves  show  the  way  in  which  the  cosine  series  converges.  Note  that 
the  cosine  series  converges  slower  for  smaller  values  of  R  and  that  all 
curves  are  monotonically  decreasing.  Now  re-examine  Figure  3-7.  The 
separation  of  the  curve  for  low  values  of  R  can  partly  be  explained  by 
the  slow  convergence,  i.e.,  the  values  shown  for  the  lower  values  of  R 
are  somewhat  separated  from  the  values  at  the  point  of  convergence.  The 
separation  from  the  reference  line  associated  with  higher  values  of  R 
can  be  explained  in  a  different  way.  The  assumption  was  mada  in  the 
derivation  that  the  load  distribution  along  the  arc  length  associated  with 
the  bolt  load  is  uniform.  This  does  not  introduce  very  much  error  for 
small  R  however  for  large  R  the  error  is  significant. 
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3.3  CONCLUSIONS 

The  analysis  described  here  was  motivated  by  the  fact  that  compar¬ 
able  analyses  performed  using  the  NASTRAN  computer  program  would  have 
been  prohibitive.  A  joint  stiffness  analysis  performed  entirely  on 
NASTRAN  during  the  Phase  2  study  cost  approximately  $300.00  per  run  for  a 
case  which  used  12  4iarmonlcs.  In  the  present  analysis  the  determination 
of  K'  and  K"  were  made  once  for  109  harmonics  using  NASTRAN  at  a  cost  of 
$2000.00  and  all  subsequent  runs  cost  from  $0.10  to  $0.30.  The  relatively 
high  cost  in  generating  the  K's  motivated  use  of  formulas  (3.44)  for 
generating  higher  K  values. 

One  of  the  problems  with  using  NASTRAN  to  solve  the  complete 
problem  is  that  one  would  have  to  use  all  the  harmonics  up  to  the  highest 
one  used.  One  could  not  exclude  harmonics.  Thus  a  run  using  the  present 
method  which  used  up  to  harmonic  number  400  and  costing  $0.30  would  have 
cost  in  excess  of  $5000.00  if  done  directly  on  NASTRAN.  In  the  present 
study  over  100  runs  were  made  at  a  modest  cost. 

An  unexpected  problem  mis  the  one  associated  with  selecting  an 
appropriate  bolt  load  distribution  parameter  (R).  The  effective  load 
path  area  for  each  fastener  in  the  shear  bolt  joint  analyzed  appears 
to  decrease  as  the  number  of  fasteners  Increases.  It  should  be  noted, 
however,  that  joint  compliance  estimates  within  10  to  20  percent  will  in 
most  cases  be  more  than  adequate  for  missile  modal  analysis  purposes. 
Accuracy  in  compliance  estimates  is  more  important  for  compliant  joints 
which  have  a  greater  Influence  on  airframe  modal  characteristics  than  for 
stiff  joints  which  have  little  effect  on  airframe  response  characteristics. 

A  useful  effort  which  was  not  attempted  in  this  study  would  be  to 
develop  a  simple  expression  for  estimating  K. ,  n. ,  and  U  used  in  equation 
(3.44),  Such  an  expression  would  allow  the  determination  of  joint 
compliance  for  shells  of  revolution. 
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TABLE  3-1  NASTRAN  Computed  Stiffness  Coefficients  for  the  Structure  on 

Each  Side  of  the  Joint  for  108  Harmonics  (amts  x  10®  pounds  per  inch) 


f 


1 

l 


rt 

e 

3 

u 

Ci 

2 

u 

m 

6730799 

6.42760 

6.54837 

6.67031 

6.79342 

6.91770 

7.04316 

7.16979 

7.29760 

7.42bI9 

7.55677 

7.68813 

7.82067 

7.95439 

8.08928 

8.22535 

8.36258 

8.50097 

8.64049 

8.78115 

8.92287 

9.06563 
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TABLE  3-3  Harmonies  Buying  Hon  Zero  Stiffness 
Coefficients  for  the  Vnrloui  Feetener 
Arrangement i 


Humber  Of  Fasteners 


79  8 

83  10 

85  17 

89  19 

91  26 

95  28 

97  35 

101  37 

103  44 

107  46 

109  53 

113  55 


125  73 
127  80 


137  91 

139  98 

143  100 

145  107 

149  109 

131  116 


Table  3-7 
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Section  4.0 


JOINT  COMPLIANCE  EXTRACTION  TECHNIQUE  DEVELOPMENT 


Tactical  missile  joint  compliances  often  represent  one  of  the 
major  uncertainties  in  developing  an  acceptable  analytical  model  for 
dynamic  response  studies.  This  uncertainty  tends  to  be  reinforced  if 
large  differences  are  discovered  between  theoretical  and  experimental 
mode  shapes  and  frequencies.  If  oneassumes  that  errors  in  assumed 
joint  compliances  are  totally  responsible  for  the  theory/test  mismatch, 
then  a  me.hod  of  solution  for  effective  joint  compliances  is  suggested 
through  an  iterative  'best  fit"  between  modal  analysis  and  modal  test 
data.  Since  distributed  mass  and  missile  airframe  stiffness  parameters 
are  generally  well  defined,  the  assumption  that  sll  errors  lie  in  the 
effective  joint  compliances  is  not  usually  unreasonable .  For  many  years 
at  the  Pomona  Division  of  General  Dynamics  a  somewhat  arbitrary  trial 
and  error  "hand  tuning"  procedure  was  employed  to  arrive  at  a  set  of 
joint  compliances  which  would  yield  an  acceptable  fit  between  analysis 
and  test  data.  This  procedure  can  become  quite  time  consuming  and 
cumbersome,  however,  when  more  than  two  or  three  unknown  joint  compli¬ 
ances  are  involved. 

A  joint  compliance  extraction  technique  was  developed  during 
Phase  1  of  the  study  of  structural  dynamic  properties  of  tactical  missile 
joints  (Reference  1).  It  utilized  a  steepest-descent  method  to  solve  for 
variable  unknown  spring  rates  based  upon  a  weighted  best  fit  match 
between  experimental  and  theoretical  mode  shapes  and  natural  frequencies. 
The  method  was  tailored  specifically  to  beam  representations  of  missile 
structures.  Unfortunately,  the  method  as  implemented  had  several 
limitations.  One  of  the  restrictions  was  that  the  number  of  modes  used 
had  to  equal  or  exceed  the  number  of  unknown  joints  to  obtain  meaningful 
results.  Also,  only  bending  cases  with  free-free  boundary  conditions 
could  be  run,  and  no  method  of  handling  appendages  had  been  devised. 

Late  in  the  Phase  1  study,  a  general  method  for  estimating  struc¬ 
tural  parameters  from  dynamic  test  data  appeared  in  Reference  4  which 
looked  promising  for  use  in  the  extraction  of  missile  airframe  joint 
compliances.  Subsequently  this  method  was  applied  in  Phase  2  to  simple 
test  cases  with  encouraging  results.  As  confidence  was  gained  in  the 
optimization  method,  the  method  was  programmed  for  use  with  a  Control 
Data  Corporation  6400  computer.  Originally  only  first  order  gradient 
terms  were  used.  The  first  order  gradient  method  worked  well  with  a 
small  (two  degree  of  freedom)  system,  but  was  inadequate  for  larger  sys¬ 
tems.  Next  a  second  order  gradient  method  in  which  the  second  order 
terms  were  approximated  by  differences  was  tried  and  techniques  developed 
to  improve  convergence  of  the  method.  The  resulting  computer  program  is 
called  program  JOINTS. 
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During  the  present  and  final  phase  of  this  study  (Phase  3)  a 
number  of  program  refinements  and  Improvements  have  been  introduced  and 
evaluated.  These  program  additions  include  the  following: 

1.  A  time  saving  option  is  provided  for  generation  of  "Standard" 
weighting  factors  which  weights  all  test  mode  shapes  and 
frequencies  equally.  Provision  still  exists,  of  course,  for 
input  of  alternate  weighting  factors  if  preferred. 

2.  Program  logic  has  been  added  to  preclude  missing  or  skipping 
over  needed  theoretical  modes  by  assuring  theoretical/test 
mode  correspondence  both  in  number  of  nodes  and  polarity. 

This  prevents  sizable  errors  which  can  result  from  mode  mis¬ 
matching  and  avoids  numerous  program  restarts,  thus  saving  turn 
around  time  between  computer  runs. 

3.  An  option  is  offered  to  use  a  greater  number  of  theoretical 
modes  than  experimental  modes  in  the  calculation  of  the  grad¬ 
ients  of  the  cost  function.  This  feature  aids  solution  con¬ 
vergence  when  only  a  few  experimental  modes  are  available. 

4.  An  interpoiation/extrapolation  program  called  FILLIN’  has  been 
added  which  takes  experimental  modal  data  at  any  arbitrary 
set  of  test  missile  stations  and  generates  modal  displacement 
and  slope  data  at  missile  stations  consistent  with  the  lumped 
parameter  modal  analysis  model.  This  operation  offers  a 
substantial  labor  savings  in  the  preparation  of  input  data  for 
the  joint  compliance  extraction  program. 

Section  4.1  presents  the  theory  that  program  JOINTS  is  based  upon. 
Rationale  in  selecting  iteration  bite  size  and  the  considerations 
involved  in  choosing  experimental  mode  shape  and  frequency  weighting 
factors  are  discussed  in  Section  4.2  together  with  a  review  of  some  of 
the  results  obtained  with  a  hypothetical  test  case  during  the  Phase  2 
study.  Section  4.3  presents  a  discussion  and  summary  of  the  new  program 
features  added  during  the  present  phase  and  Section  4.4  offers  a  program 
application  test  case  based  on  a  set  of  actual  tactical  missile  modal 
test  data.  The  joint  compliance  extraction  technique  user's  manual, 
including  a  listing  of  the  programs,  and  appropriate  test  cases  are 
presented  in  the  Appendix. 

4.1  METHOD  OF  ANALYSIS 

The  Joint  compliance  extraction  technique  is  designed  to  deter¬ 
mine  mechanical  joint  compliances  of  an  elastic  missile  structure  by 
generating  the  "best"  least  square  fit  between  a  linear  lumped  parameter 
mathematical  model  and  a  given  set  of  experimental  modal  data.  A  major 
assumption  in  the  method  is  that  the  joint  compliances  constitute  the 
principal  unknowns  in  the  lumped  parameter  system,  with  both  distributed 
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mass  and  stiffness  being  precisely  defined.  Weighting  factors  which 
involve  mode  number,  shape,  and  frequency  acknowledge  the  existence 
of  accuracy  limitations  in  the  test  data.  The  Joint  compliances  yield¬ 
ing  a  best  fit  are  found  by  minimizing  a  quadratic  function  of  the 
differences  between  corresponding  theoretical  and  experimental  eigen¬ 
values  and  eigenvectors.  This  function,  referred  to  as  the  cost  func¬ 
tion,  is  expressed  as  follows: 

*  =  -J  £  fat*  ( -  AJ.l  )X  +  -  £ity  U/v  ( -  X&  )]  (4.1) 


The  frequencies  and  mode  shapes  are  denoted  by  a J  and  X  ,  respectively. 
The  weighting  factor  matrix  is  W  and  the  index  1  is  the  mode  number. 
If  the  mode  shape  slopes  are  used,  they  are  created  as  additional  compon¬ 
ents  of  the  X's.  The  subscripts  e  and  t  denote  experimental  arid 
theoretical  values,  respectively.  The  minimization  of  the  cost  function 
constitutes  a  nonlinear  programming  problem  which  is  the  subject  of  this 
section.  Optimization  problems  not  amenable  to  standard  methods  are  more 
the  rule  than  the  exception.  In  this  case  the  optimization  is  accom¬ 
plished  by  a  steepest  descant  method  especially  developed  for  this  study. 
The  basic  concept  originally  appeared  in  Reference  4.  Before  proceeding 
with  a  detailed  discussion  of  the  method,  the  structural  mathematical 
model  utilized  will  be  described. 

4.1.1  System  Model.  The  fundamental  structural  dynamic  consider¬ 
ations  of  a  tactical  missile  are  often  handled  with  a  linear  lumped  para¬ 
meter  mathematical  model.  The  one  used  in  this  study  is  typical.  More 
expressly,  the  mathematical  model  simulates  a  beam-like  body  with  a 
series  of  lumped  masses  connected  by  weightless  beams.  Discrete  shear, 
compressive;  torsional,  and  flexural  springs  may  be  Included  at  any  point 
in  the  model.  The  model  can  be  used  to  analyze  bending,  torsion,  and 
longitudinal  motion.  The  model  contains  provisions  for  including  appen¬ 
dages  attached  to  the  main  body  at  arbitrary  angles  with  arbitrary 
attachment  springs.  The  appendages  are  modeled  similarly  to  the  main 
body.  The  boundary  value  problem  that  results  from  this  representation 
can  be  expressed  as  an  eigenvalue  problem: 

^  /,  2  ,  •  •  •  /U  (4.2) 

where  M  and  K  are  mass  and  stiffness  matrices,  respectively.  The  sub¬ 
routine  within  the  computer  program  which  solves  the  eigenvalue  problem 
uses  the  Holzer-Myklestad  method.  This  numerical  method  utilizes  trans¬ 
fer  matrices  from  point  to  point  on  the  model  and  finds  the  eigenvalues 
by  satisfying  the  boundary  conditions  using  an  iterative  procedure.  A 
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complete  description  of  the  method  is  found  in  Reference  5.  Limita¬ 
tions  of  the  method  and  economy  preclude  extraction  of  all  N  modes 
where  N  is  typically  50  to  200.  It  will  be  seen  later  that  the  lack 
of  a  complete  set  of  modes  introduces  approximations  into  the  optimisa¬ 
tion  method  and  necessitates  modifications. 


4.1.2  Solution  Method.  The  "best  fit"  values  of  the  joint  com¬ 
pliances,  defined  in  a  least  square  error  sense,  are  determined  by 
minimising  the  cost  function  which  is  accomplished  with  a  modified 
steepest  descent  method.  Steepest  descent  or  gradient  methods  as  they 
are  also  known,  iteratively  converge  on  the  location  of  the  minimum, 
since  an  analytical  solution  of  the  condition  for  an  extremum,  v^*r=  0, 
is  not  possible.  The  successive  estimates  of  the  minimizing  values  of 
the  independent  variables,  in  this  case  a  vector  the  components  of 
which  are  the  unknown  spring  rates  of  the  structural  joints  k,  are 

Cnri)  Cn)  I 

K  ~  AT  -  &  (4.3) 


The  superscript  Indicates  the  number  of  the  estimate.  If  the  quantity 
9  is  a  constant,  the  algorithm  is  a  first  order  method  commonly  referred 
to  as  the  steepest  descent  method,.  It  is  based  on  the  intuitive  notion 
that  if  one  proceeds  in  the  direction  of  the  steepest  descent,  which 
Equation  4,3  does,  in  small  steps  one  must  arrive  at  a  local  minimum. 

It  can  also  be  proven  rigorously  (Reference  6).  A  very  efficient  second 
order  method  may  be  derived  by  applying  the  Kewton-Raphson  algorithm  to 
the  gradient  of  the  cost  function  which  yields  the  successive  approxi¬ 
mation, 


<r«)  _ 

X  -S 


a  Kj 


(4.4) 


The  matrix  of  second  partial  derivatives  must  be  non-singular..  Theoreti¬ 
cally,  the  step  size,  S,  is  a  scalar.  However,  in  this  study,  it  was 
necessary  to  generalize  its  definition.  Equation  4.4  serves  as  the  basis 
for  the  algorithm  developed.  The  reasons  for  the  modifications  that 
were  necessary  will  be  explained  as  they  are  encountered. 


The  j  component  of  the  gradient  of  the  cost  function  is 


%  - 1,  (i*  <•**;-**;> 


(4.5) 


where  kj  is  the  j t_h  unknown  spring  rate.  In  order  to  calculate  the 
partial  derivatives  of  the  eigenvalues  and  eigenvectors  with  respect  to 
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the  ki's,  a  departure  was  made  from  Reference  4.  Here  the  modes  were 
normalised  to  unity  with  respect  to  the  generalised  mass  M, 


"a.*  -  <, 


(4.6) 


Also  a  joint  compliance  positioning  matrix,  ,  is  introduced  which 
locates  the  unknown  spring  rates  within  the  full  spring  matrix  - 


-  2  - 
X  -  K  *■  Z.  K  K: 


(4.7) 


K  is  the  matrix  of  ki.own  spring  elements.  Because  of  the  peculiarities 
of  the  method  used  to  solve  the  eigenvalue  problem,  the  spring  matrix, 
K,  is  not  directly  avc.  .lable  and  so  neither  are  the  variable  spring 
positioning  matrices,  the  K-3's.  However,  they  can  be  derived  by  con¬ 
sidering  the  strain  energy  stored  in  the  j£h  spring.  For  simplicity, 
assume  that  a  separate  spring  rate  is  assigned  to  each  joint.  Then  the 
strain  energy  associated  with  the  jtji  spring  is: 


U.  ~  —  K.  ("X  -  X-  )Z 
j  o  j  \  v  j  / 


(4.8) 


where  'xj  and  xj  are  the  slopes  to  the  left  and  to  the  right  of  the 
joint  for  the  case  of  a  rotational  spring.  The  strain  energy  is  also 
Uj  =  l/2kjX 'TkJx ' .  Equating  the  two  expressions  and  then  the  coeffi¬ 
cients  of  Tike  terms,  it  can  be  deduced  that  the  matrix,  KJ ,  must  be  the 
null  matrix  except  for  a  submatrix, 


a.  •/) 


(4.9) 


corresponding  to  the  coordinates  on  either  side  of  the  joint.  Then 
according  to  Reference  7  the  partial  derivatives  are 


dX; 


X  ..  AT  X .. 

-it  -  tt 


(4.10a) 


it 
b  X; 


£  -Jtt  * 

—  T 


(4.10b) 
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Equations  (4.10a)  and  (4.10b)  can  be  expanded  in  terms  of  components 
of  the  normal  coordinates  by  utilizing  the  strain  energy  relationship 
for  each  Joint. 
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where  the  indices  mj  and  mj*-i  refer  to  the  components  of  the 
normal  coordinates  to  the  left  and  right  of  the  jth  joint  respectively. 
The  partial  derivatives  of  the  mode  shapes  were  derived  using  the  second 
formulation  of  Reference  7  which  requires  a  complete  set  of  theoretical 
modes.  As  pointed  out  previously  the  sum  has  to  be  truncated  for 
reasons  of  accuracy  and  economy.  This  is  usually  the  case  in  dynamic 
problems..  Here  the  justification  is  a  posteriori.  The  number  of  thero- 
etical  modes  used  in  the  computation  of  their  derivative#  is  an  option 
to  be  selected  by  the  user. 
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The  second  partial  derivative  of  the  cost  function  with  respect  to  the 


unknown  spring  rates,  k  and  k,,  is 
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The  second  partials  of  the  eigenvalues  and  mode  shapes  are 
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During  Phase  2  It  was  felt  that  direct  calculation  of  the  second 
partial  derivatives  of  the  eigenvalues  and  eigenvectors  using  the  above 
equations  were  prohibitive  because  of  computer  memory  size  limits.  It 
was  subsequently  realized  that  direct  calculation  of  the  second  partial 
derivatives  is  very  likely  economically  feasible  since  many  of  the  terms 
are  zero.  However,  since  only  a  small  number  of  unknown  missile  joints 
are  assumed,  the  method  employed  in  program  JOINTS  approximates  the 
second  partials  by  taking  differences  of  the  first  partials.  Such  a 
numerical  process  tends  to  be  accuracy  sensitive  and  demands  careful 
monitoring.  Without  resorting  to  double  precision  arithmetic,  the  step 
size  must  be  large  enough  to  yield  a  sufficient  number  of  significant 
figures  .  On  the  other  hand,  too  large  a  step  size  may  enclose  a 
region  too  large  for  the  cost  function  to  be  represented  by  a  quadratic. 
The  procedure  settled  upon  was  the  following,  lising  the  current  estimate 
k(n),  the  gradient  of  the  cost  function  is  computed  with  Equations  (4.5), 
(4.11a)  and  (4.12).  The  current  estimates  of  the  unknown  springs  are 
successively  incremented  one  at  a  time  in  the  direction  dictated  by  the 
corresponding  component  of  the  gradient: 
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(4.15) 


The  relative  Increment,  r,  is  the  same  for  all  the  unknown  spring  rates 
and  fixed  for  a  particular  problem.  The  gradient  is  calculated  at  k' (°) 
and  the  ratios  of  the  differences  of  the  respective  components  and  the 
spring  rate  Increments  are  computed.  In  order  to  improve  the  estimates 
of  th<*  second  partial  derivatives,  corresponding  off-diagonal  estimates 
which  theoretically  should  be  equal  are  averaged  as  indicated  below. 
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The  Hessian,  the  matrix  of  second  partial  derivatives,  is  then  inverted. 
The  correction  terms  in  Equation  (4.4)  are  computed  using  a  value  of  1.0 
for  S.  The  sign  and  magnitude  of  each  correction  component  are  compared 
to  those  of  the  increment  used  to  estimate  the  second  partials.  If  the 
signs  agree  or  if  the  magnitude  is  less  than  2-1/2%  of  the  current  spring 
rate,  the  second  order  correction  is  utilized.  If  not,  equation  (4.15) 
is  used.  If  the  new  spring  rates,  k^n  +  1),  result  in  an  increase  in  the 
cost  function,  the  correction  terms  to  k(n)  are  halved  repeatedly  until 
a  decrease  in  the  cost  function  is  obtained.  In  any  case,  each  variable 
spring  rate  is  kept  within  prespecified  limits.  These  procedures  which 
taken  together  may  be  considered  a  complicated  method  of  selecting  a 
varying  step  size,  S,  evolved  heuristicly.  Modifications  which  can  be 
made  to  improve  them  and  put  them  on  a  more  rigorous  basis  are  possible. 

4.2  SPECIAL  PARAMETERS 

This  section  discusses  two  of  the  parameters  important  to  the 
proper  functioning  of  the  method  of  solution.  Both  of  these  parameters 
are  input  quantities  in  the  present  version  of  Program  JOINTS.  These 
parameters  are  the  set  of  weighting  factors  and  the  step  size  -  r. 

4.2.1  Weighting  Factors.  Ideally  the  weighting  in  the  cost 
function  should  reflect  boLh  the  relative  accuracy  of  the  experimental 
data  and  the  relative  importance  of  the  information  to  be  obtained  from 
applications  of  the  mathematical  model.  Often  for  missiles  constructed 
with  thin  cylindrical  shells,  the  experimental  data  will  diverge  from 
beam  behavior  in  progressively  higher  modes.  For  many  dynamic  analyses 
(such  as  dynamic  loads  analyses  and  autopilot  elastic  mode  coupling 
analyses),  the  contribution  of  the  higher  modes  is  less  significant  than 
the  lower  modes.  If  the  above  conditions  hold  fcr  any  given  problem, 
then  the  weighting  factors  should  decrease  in  some  way  with  increasing 
mode  number. 
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A  derivation  of  the  weighting  factors  ia  now  developed.  The  cost 
function  (Equation  4.1)  may  be  broken  down  into  two  terms  (mode  shape 
and  frequency)  for  each  mode 


where 
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Rewriting  as  a  summation  yields 

-“Vx  =  X  K>  f  (4.19.) 


To  see  the  siz-*  of  terms  produced  in  the  cost  function  by  an  error  in 
the  eigenvalue  oi  eigenvector,  a  relative  error  of  size  <S  is  assumed 
in  each  of  the  measured  quantities.  Then  the  cost  function  terms  will 
be  equated  by  proper  selection  of  weighting  factors.  That  is,  an  error 
of  will  be  assumed  in  both  40*  and  X  ,  and  weighting  factors 
will  then  be  found  whicn  give  equal  size  terms  in  the  cost  function. 

If  the  theur  tical  eigenvalues  and  eigenvectors  are  assumed  correct,  then 
an  error  of  «£  in  the  eigenvalue  can  be  written  as 
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The  frequency  terms  in  the  cost  function  become 


& 

/ 

W-  -  — 

z 

*** 

/ 

z 

Kr 

[-^]a 

/ 

er  — — - 

2 

(4.21) 

This  means  that  an  error  of  €  in  the  eigenvalue  will  produce  a  residual 
term  in  the  cost  function  proportional  to  the  product  of  the  fourth 
power  of  the  frequency  and  the  square  of  the  error.  Considering  the  same 
error  applied  to  the  mode  shape  contribution  to  the  cost  function  yields 
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The  above  equation  shows  that  an  error  of  6  in  the  eigenvector  will 
produce  a  residual  term  in  the  cost  function  proportional  to  the  product 
of  the  square  of  the  eigenvector  and  the  square  of  the  error.  Since  the 
mode  shapes  are  normalized  to  a  unity  generalized  mass,  then 

/  =  2E  X  \ 

If  assumptions  are  made  that  the  test  specimen  is  a  slender  beam  with 
uniform  mass  and  station  distributions,  then  the  above  equation  may  be 
rewritten  as 
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and  the  mode  shape  portion  of  the  cost  function  becomes  inversely  propor¬ 
tional  to  the  mass 
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,  __  mass  of  bt-m _ 

w  ere  t*t  Number  of  stations 

is  independent  of  frequency,  and  is  dependent  upon  the  mass,  number 
of  beam  stations,  and  the  square  of  the  error. 

To  equate  the  size  of  the  frequency  terms  in  the  cost  function 
with  each  other,  the  following  weighting  factors  were  selected 


(4.25) 


wnere 


^v/#  -  highest  experimental  mode  frequency 
Equating  the  mode  shape  and  frequency  terms  of  the  cost  function  yields 
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where 


>v)  =  mass  of  the  missile  (Lb-Sec  /In) 

A/  =  number  of  internal  stations 


The  above  weighting  factors  then  approximately  weight  the  mode  shape  and 
frequency  errors  equally.  These  factors  have  been  built  into  Program 
JOINTS  along  with  a  set  of  adjustable  weighting  factor  coefficients. 

If  unequal  weights  are  desired,  weighting  factor  coefficients  are  input 
to  the  program  and  these  coefficients  are  multiplied  by  the  above  fac¬ 
tors  to  obtain  the  new  weighting  factors  used  by  the  program.  That  is 


(4.27) 
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where  and  UiFCi>t  are  input  separately  for  each  mode. 

Some  consideration  was  given  to  including  provisions  for  weight¬ 
ing  some  mode  components  more  than  others,  but  this  was  concluded  to  be 
an  impractical  and  unwarranted  complexity  in  the  operation  of  the  program. 

4.2.2  "Bite1’  Size  Selection.  The  bite  size  being  discussed  in 
this  section  is  r  in  equation  (4.15),  the  increment  each  spring  Is 
altered  during  the  intermediate  calculation  in  the  computation  of  the 
second  order  partials.  The  choice  of  the  spring  increment  size,  r,  can 
cause  a  problem  unless  care  is  taken  in  its  selection.  The  step  size 
must  be  large  enough  to  prevent  incurring  numerical  accuracy  problems, 
yet  small  enough  to  give  an  adequate  estimate  of  the  second  order  grad¬ 
ients  of  the  cost  function. 

The  present  tolerance  ratio  on  the  frequency  solution  in  the  modal 
analysis  routine  in  Program  JOINTS  is  1  x  10"5.  That  is,  the  theoretical 
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frequency  solutions  will  be  no  worse  than  .001  percent.  In  selecting 
a  value  of  r  to  be  used  in  Program  JOINTS,  a  change  in  each  individual 
spring  equal  to  r  times  the  spring  rate  should  produce  frequency 
changes  greater  than  .01  percent  in  the  theoretical  modes.  This  change 
in  frequency  is  dependent  upon  the  joint  locations  and  magnitude  of  com¬ 
pliances.  Reference  1  (Phase  1  Report)  provides  an  extensive  discussion 
of  these  parameters.  Another  constraint  on  the  step  size  to  be  considered 
is  that  if  the  originally  assumed  joint  compliances  art  'far  from  conver¬ 
gence'  a  first  order  gradient  method  is  used  rather  than  the  second  order 
gradient  method.  If  the  first  order  method  is  used,  r  is  the  amount  the 
compliance  is  altered  each  iteration.  If  r  is  small,  the  solution  time 
may  be  very  large.  The  phrase  'far  from  convergence'  is  defined  as  a 
region  which  is  determined  by  the  directions  indicated  for  changes  in 
individual  spring  rates  from  the  first  order  and  the  second  order  gradient 
methods.  If  the  two  methods  indicate  opposite  directions  should  be  taken 
for  the  change  in  spring  rate,  the  first  order  method 'is  used.  As  the 
cost  function  minimum  is  approached,  the  first  and  second  order  terms 
agree  in  sign  for  the  change  in  spring  rate  so  the  magnitude  determined 
from  the  second  order  method  is  used.  This  choice  of  either  .he  first  or 
second  order  method  is  made  independently  for  each  spring. 

To  illustrate  the  effect  of  the  step  size  r,  consider  the  non- 
uniform  bending  beam  model  shown  in  Figure  4-1.  It  consists  of  five  beam 
sections  connected  by  four  flexural  joints,  each  of  "moderate"  to  "good" 
stiffness  for  the  assumed  test  airframe.  The  Holzer  Myklestad  method 
(identical  to  what  is  used  in  Program  JOINTS)  was  used  to  generate  the 
required  modal  data  for  this  test  case.  Since  the  modal  data  are  "exact" 
for  the  lumped  parameter  model,  a  precise  means  for  judging  the  accuracy 
of  the  JOINTS  program  solution  is  provided.  Selected  flexural  joints 
were  then  assumed  to  be  unknown, and  arbitrary  (incorrect)  initial  values 
selected. 

Figure  4-2  shows  the  results  obtained  with  Program  JOINTS  by  using 
two  modes  to  solve  for  three  joint  compliances.  For  this  case,  the  com¬ 
pliance  of  the  first  of  the  four  joints  was  assumed  to  be  known  correctly 
and  the  compliance  of  the  last  three  were  assumed  high  by  a  factor  of  two. 
The  value  of  the  intermediate  step  size,  r,  used  in  this  case  was  25%. 
Figure  4-2  shows  the  result  of  eighteen  iterations.  The  convergence  is 
seen  to  be  quite  slow.  Other  values  of  r  have  been  considered  with 
interesting  results.  Figure  4-3  shows  the  same  example  as  Figure  4-2, 
except  the  value  of  r  was  changed  from  25%  to  1%.  Here  convergence  to 
the  three  correct  joint  flexural  compliances  is  achieved  in  four  iteration 
cycles  or  about  four  times  as  fast.  This  points  out  the  importance  of  the 
intermediate  step  size,  r,  used  in  approximating  the  second  partial  deriva¬ 
tives.  In  both  of  these  examples,  three  unknown  spring  rates  were  solved 
using  only  two  modes. 

Figure  4-4  illustrates  further  the  importance  of  the  intermediate 
step  size,  r,  in  the  convergence  of  the  method.  Values  of  r  considered 
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in  Figure  4-4  range  from  25%  to  1%.  Very  little  difference  is  seen 
between  1%  and  57,,  suggesting  that  both  approximate  the  second  order 
gradients  well.  For  this  case,  it  can  be  seen  that  257»,  20%,  and  15% 
were  all  too  large  a  value  for  r.  All  three  values  of  r  will  produce 
the  correct  joint  compliances  but  the  run  time  is  much  longer  for  the 
larger  values  of  r.  The  value  of  r  for  best  convergence  will  not  be 
the  same  for  all  cases.  In  fact,  for  some  problems  it  might  be  more 
efficient  to  make  two  computer  runs  using  two  different  values  of  r.  In 
the  beginning,  use  of  a  larger  value  of  r  may  be  required  if  the  pro¬ 
gram  employs  the  first  order  gradient  method.  However,  the  solution  may 
be  speeded  up  by  using  a  smaller  value  of  r  as  the  cost  function  mini¬ 
mum  is  approached  and  the  program  uses  the  second  order  gradient  method. 

4.3  PROGRAM  FEATURES  ADDED 

This  section  discusses  some  of  the  techniques  developed  during 
the  Phase  3  study  to  increase  the  efficiency  of  Program  JOINTS  and  to 
decrease  the  work  required  by  the  user.  Covered  in  this  discussion  are 
the  program  generation  of  weighting  factors,  logic  in  JOINTS  to  correct 
for  modes  being  missed  by  the  eigenvalue  extraction  subroutine,  and  the 
benefits  of  using  the  input  parameter  'CLOSE'.  In  addition,  this  sec¬ 
tion  introduces  the  computer  program  (Program  FILLIN)  written  as  an  aid 
for  the  user  of  Program  JOINTS.  Program  FILLIN  accepts  measured  modal 
data  in  a  general  format  and  interpolates  between  those  data  points  to 
obtain  a  new  set  of  data  in  the  format  appropriate  for  use  in  Program 
JOINTS.  The  changes  to  the  input  data  are  necessitated  because  Program 
JOINTS  compares  the  experimental  and  theoretical  modal  data  at  identical 
missile  stations. 

4.3.1  Weighting  Factor  Generation.  In  the  original  program  format, 

the  weighting  factors  required  to  use  Program  JOINTS  had  to  be  calculated 
by  the  user.  As  an  added  convenience,  it  was  decided  to  accomplish  the 
major  portion  of  the  weighting  factor  computation  within  the  program. 
Equations  4.25  and  4,26  of  section  4.2.1  present  the  equations  of  the 
weighting  factors  now  used  In  the  program.  The  option  is  retained  to 
input  weighting  factor  coefficients  desired  by  the  user,  but  these  weight¬ 
ing  factor  coefficients  (  and  US^Citt  In  equations  4.27  and  4.28) 

modify  the  factors  computed  by  the  program  and  do  not  replace  them.  If 

no  values  are  input  for  and  ,  these  coefficients  are 

aach  assumed  equal  to  1,0.  If  the  user,  for  example,  wishes  co  weight  the 
first  mode  shape  and  frequency  a  factor  of  two  more  than  the  other  modes, 
he  simply  inputs  the  value  2,0  for  and  and  1.0  for  all 

other  modes. 

4.3.2  'Missing'  Mode  Logic.  Another  option  built  into  Program 
JOINTS  during  Phase  3  is  a  check  to  guard  against  missing  modes  in  the 
eigenvalue  extraction  routine.  This  is  accomplished  by  checking  the  com¬ 
puted  modes  against  the  experimental  modes.  For  bending  cases,  the  number 


of  slope  sign  changes  In  each  theoretical  mode  shape  Is  compGred  with 
each  measured  mode.  Like  modes  are  matched  and  If  any  modes  are  missing 
the  program  will  go  back  and  compute  the  missing  modes.  Because  of  the 
way  the  Myklestad  subroutine  treates  redundant  appendages,  this  check 
should  not  be  used  with  a  model  that  has  redundant  appendages. 

4.3.3  Number  of  Theoretical  Modes.  Another  improvement  intro¬ 
duced  to  Program  JOINTS  is  to  allow  the  calculation  and  inclusion  of 
more  theoretical  modes  than  experimental  modes  in  the  partial  derivatives 
of  the  mode  shape  given  in  equation  (4.11b)  The  partial  derivative  of 
the  eigenvector  for  the  i^  mode  is  expressed  as  the  sum  of  contributions 
from  all  modes  except  the  ifc^  mode.  This  sum  is  truncated  at  however  many 
modes  are  available  for  the  calculation.  If  only  one  mode  is  available, 
then  the  partial  *s  approximated  by  zero.  If  two  modes  are  available, 
then  the  partial  is  approximated  by  contributions  from  one  mode.  For  a 
distributed  system,  the  partial  derivative  would  be  computed  from  an 
infinite  sum.  The  larger  the  number  of  modes,  the  closer  the  sum  should 
approximate  tne  partial  derivatives.  Using  more  modes  in  approximating 
the  partial  derivatives  can  be  expected  to  produce  more  accurate  values, 
aid  in  the  problem  solution,  and  accelerate  the  rate  of  convergence.  The 
amount  of  computer  time  used  per  iteration  cycle,  however,  is  directly 
proportional  to  the  number  of  theoretical  modes  used  in  the  solution. 
Because  of  this  cost  consideration,  the  user  would  be  advised  to  use  an 
equal  number  of  theoretical  modes  in  the  solution  when  three  or  more  meas¬ 
ured  modes  are  available. 

4.3.4  Input  Parameter  'CLOSE1.  The  Input  parameter  'CLOSE', 

Table  A-3,used  in  Program  JOINTS  is  another  parameter  designed  to  save 
computer  time.  If  a  value  is  not  input  for  'CLOSE'  into  Program  JOINTS, 
a  continuous  search  is  made  for  the  required  number  of  modes  between 
specified  frequency  limits.  Computer  time  may  be  saved  by  eliminating  as 
much  of  the  searching  as  possible,  A  way  of  eliminating  the  unnecessary 
searching  is  to  start  below  but  very  near  the  answer.  The  reason  for 
starting  Just  below  the  answer  is  that  the  frequency  search  Is  done  in  an 
increasing  order.  For  a  model  which  matches  the  experimental  data  fairly 
closely,  the  search  starting  frequency  for  each  mode  may  be  selected  close 
to  the  experimental  frequencies.  If  a  value  of  'CLOSE'  is  input,  the 
search  for  the  ith  mode  starts  at  the  frequency  equal  to  'CLOSE'  times 

the  experimental  frequency  for  the  i^h  mode. 

Starting  the  search  for  the  modes  near  the  required  solution  has 
saved  considerable  computer  time  in  several  of  the  test  cases.  Using  the 
tactical  missile  application  of  Section  4.4  as  an  example,  a  value  of 
'CLOSE'  equal  to  0.9  cost  approximately  30%  less  than  an  identical  run 
where  a  continuous  search  was  usou.  However,  care  must  be  taken  that 
'CLOSE'  times  the  experimental  frequency  for  the  ita  mode  will  not  be 
less  than  the  theoretical  frequency  for  the  (i-I)th  mode,  in  which  case 
the  (i-ljfch  mode  will  be  repeated  for  the  i11*1  mode. 
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4.3.5  Test  Data  Preparation.  One  of  the  goals  of  the  Phase  3 
study  was  to  simplify  the  tasks  of  the  person  using  Program  JOINTS. 

During  the  Pnase  2  study,  it  became  obvious  that  for  Program  JOINTS  to 
be  easily  useable,  a  scheme  was  needed  to  reduce  the  amount  of  work 
required  to  get  the  experimental  data  in  the  format  necessary  for  the 
program.  As  the  cost  function  is  formulated,  the  mode  shape  deflection 
and  slope  at  every  internal  station  are  compared  with  a  measured  mode 
shape  deflection  and  slope  at  that  station.  However,  seldom  are  the 
measurements  made  at  the  station  locations  required  by  che  mathematical 
model.  In  addition,  the  quantities  most  usu?!ly  measured  during  test 
are  the  modal  deflections  and  not  the  slopes.  One  way  of  handling  this 
problem  is  to  plot  the  measured  deflection  data.  From  these  plots,  a 
new  set  of  modal  deflections  and  slopes  are  read  at  the  desired  stations 
and  key  punched  on  cards.  As  an  example  of  the  size  of  this  problem, 
the  tactical  missile  test  case  discussed  in  Section  4.4  has  a  total  of 
78  stations.  The  number  of  data  points  read  per  mode  is  156,  and  three 
modes  were  used  for  that  case.  It  was  for  this  reason  that  Program 
FILLIN'  was  written. 

Program  FILLIN  accepts  modal  data  measured  at  a  set  of  missile 
stations  and  the  mathematical  model  data  to  be  used  in  Program  JOINTS. 

The  program  then  interpolates  using  several  simple  curve  fitting  tech¬ 
niques.  The  program  is  primarily  designed  for  bending  mode  cases.  The 
method  of  interpolation  to  be  used  at  a  particular  station  is  determined 
by  the  station  type  and  the  relative  locations  of  stations  at  which 
experimental  values  are  available  The  types  of  stations  considered 
include  those  not  at  a  joint,  those  immediately  to  the  right  or  left  of 
joints,  and  those  at  the  ends  of  the  main  beam  or  an  appendage.  The  first 
class  of  stations  includes  the  majority  of  stations.  For  these  stations 
interpolation  was  accomplished  with  a  sliding  parabolic  least  square 
curve  fit  to  four  experimental  values.  That  is  the  two  nearest  experi¬ 
mental  values  on  either  side  of  the  station  are  used  for  the  least  square 
fit.  If  two  experimental  values  are  not  available  on  both  sides  of  the 
station,  linear  interpolation  or  If  necessary  extrapolation  Is  resorted 
to.  This  also  applies  to  stations  at  ends  of  appendages  and  to  modal 
slopes  at  stations  immediately  to  the  right  or  left  of  rotational  spring 
joints  and  to  modal  displacements  at  stations  immediately  to  the  right  or 
left  of  shear  spring  joints.  Modal  slopes  at  a  shear  joint  are  the  aver¬ 
age  of  the  two  straight  line  slopes  on  each  side  of  the  joint. 

One  of  the  limitations  of  Program  FILLIN  is  that  appendages  with 
180°  attachment  angles  will  have  slope  values  with  the  sign  opposite  to 
the  Myklestad  subroutine.  This  occurs  because  the  Myklestad  routine 
uses  a  different  coordinate  systems  on  appendages  than  it  does  on  the  main 
beam  while  FILLIN  uses  only  one  coordinate  system.  Another  limitation  of 
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FILLIN  Is  that  Inaccuracies  can  occur  at  stations  near  joints  and  in 
slopes  at  roots  of  appendages.  However,  one  of  the  advantages  of  the 
least  square  curve  fit  is  that  the  method  will  smooth  the  experiments] 
data. 

4.4  TACTICAL  MISSILE  TEST  CASE 

To  show  the  utility  of  Programs  FILLIN  and  JOINTS,  a  set  of  meas¬ 
ured  bending  modal  data  for  an  actual  tactical  missile  were  selected  as 
a  test  case.  The  set  of  modal  data  had  previously  been  matched  with  a 
mathematical  modal  by  a  trial  and  error  method.  This  method  took  approxi¬ 
mately  sixty  computer  runs.  Previous  test  cases  based  on  hypothetical 
models  had  shown  that  the  method  arrives  at  the  correct  joint  compliances 
rapidly  when  an  exact  math  model  is  used  with  no  errors  in  the  input  data 
The  results  obtained  with  this  test  case  illustrate  how  well  the  program 
works  when  matching  a  lumped  parameter  model  to  actual  measured  data  with 
its  inherent  experimental  errors. 

Figures  4-5,  4-6,  and  4-7  present  the  three  experimental  modes 
and  the  curve  fit  values  obtained  from  Program  FILLIN  for  the  tactical 
missile.  Theri  are  slight  discrepancies  between  the  measured  data  points 
and  the  curve  lit  values,  especially  near  the  front  end  of  the  missile 
where  few  data  points  exist.  The  forward  end  of  the  missile  is  a  radome 
shell  and  quite  stiff  for  the  weight  it  supports.  It  therefore  bends 
very  little  in  the  lower  bending  moles.  When  the  program  fits  the  data 
points  with  a  quadratic  equation,  'he  match  is  not  perfect.  Nevertheless 
the  interpolated  modal  displacements  and  slopes  are  believed  to  be  reason 
able  representations  of  the  measured  modes.  Since  the  method  tends  to 
smooth  the  data,  a  test  case  with  larger  experimental  errors  in  the  meas¬ 
ured  modes  would  look  more  impressive. 

The  output  displacements  and  slopes  from  Program  FILLIN  are 
punched  on  cards  in  the  format  for  Program  JOINTS.  However,  the  punched 
output  must  be  checked  and  corrected  as  180  degree  appendages  will  have 
the  sign  of  the  slopes  cut  of  phase  with  the  Myklestad  program.  This  is 
due  to  a  different  sign  convention  in  the  Myklestad  subroutine  for  180 
degree  appendages. 

The  data  output  from  Program  FILLIN  was  then  used  as  the  input 
modal  data  for  Program  JOINTS .  The  set  of  weighting  factors  selected  for 
this  application  were  chosen  to  equate  all  three  modes  (both  frequencies 
and  mode  shapes)  equally.  The  first  three  joint  compliances  (which 
represented  airframe  joints)  were  started  approximately  300%  higher  than 
the  hand  tuned  values.  The  fourth  joint  compliance  represented  the 
attachment  compliance  for  an  internal  appendage.  The  originally  assumed 
value  of  the  fourth  compliance  was  started  high  by  30%  over  the  hand 
tuned  value. 
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Figure  4-8  shows  the  rate  of  convergence  obtained  by  Program 
JOINTS  for  the  tactical  missile  application.  The  program  was  run  for  a 
total  of  eight  iteration  cycles.  However,  the  cost  function  did  not 
improve  significantly  after  the  th^rd  cycle.  The  final  (iteration 
cycle  eight)  joint  compliances  obtained  agree  quite  well  with  the  hand 
tuned  values.  Figures  4-9,  4-10,  and  4-11  present  a  comparison  of  the 
experimental  and  theoretical  modes.  It  is  apparent  from  the  figures 
that  a  good  match  has  been  obtained  between  the  two  sets  of  data. 

Next,  a  new  set  of  weighting  factors  was  chosen  to  see  what  effect 
different  weighting  factors  had  on  the  solution.  It  should  also  be 
noced  that  the  test  data  was  represented  well  by  the  beam  model  in  the 
above  solution.  The  set  of  frequency  weighting  factor  coefficients 
selected  were  100,  10,  and  1  for  the  first,  second,  and  third  modes 
respectively.  The  corresponding  mode  shape  weighting  factor  coefficients 
were  1,  0.1,  and  0.01.  Figure  4-12  shows  the  solution  (No.  2)  obtained 
for  this  condition.  Comparison  of  Figures  4-8  and  4-12  shows  that  both 
sets  of  compliances  obtained  are  close  to  the  hand  tuned  values.  The 
following  is  a  comparison  of  the  experimental  frequencies  and  the  fre¬ 
quencies  obtained  for  the  two  sets  of  weighting  factors. 


Mode 

No. 

Experimental 

Frequency 

(Hz) 

Theoretical 

Frequency  (Hz) 

Solution 

No.  1 

Solution 
No.  2 

1 

59.3 

59.5 

59.3 

2 

116. 

114.4 

116.0 

3 

153. 

154.2 

153.6 

As  shown  above,  the  case  where  the  frequencies  are  weighted  more  heavily 
than  the  mode  shapes  (solution  number  2)  does  in  fact  exhibit  a  better- 
match  between  the  experimental  and  theoretical  frequencies . 

4.5  STATUS  OF  THE  EXTRACTION  TECHNIQUE 

The  joint  compliance  extraction  technique  in  its  present  format 
is  believed  to  offer  a  useful,  convenient,  and  reliable  method  for  esti* 
mating  effective  compliances  of  missile  joints  from  modal  test  data. 

The  method  presumes  that  the  missile  airframe  distributed  stiffness  and 
mass  properties  are  known,  the  modal  characteristics  can  be  adequately 
modeled  as  a  lumped  parameter  beam,  and  that  all  discrepancies  between 
modal  analysis  and  modal  test  data  can  be  attributed  to  uncertainties  in 
the  joint  compliance  values.  As  in  any  analytical  method,  additional 
refinements  and  areas  for  unprovement  will  become  evident  as  applications 
are  further  explored  with  actual  test  data. 
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LIST  OF  SYMBOLS  FOR  SECTION  4.0 


/=- 

M 

% 

< 

u> 

X 

w 

<  )r 
A' 

i 

Ai 

A/ 

K 

n 

T  ^ 


K 


/ 

K 


Cost  Function  of  Error  Terms 
Number  of  Experimental  Modes 
Summation  on  Index  £ 

Mode  Frequency 
Mode  Shape 
Weighting  Factor 
Transpose  of  C  b 
Stiffness  Matrix 
Mass  Matrix 

Number  of  Internal  Stations  in  Model 
Unknown  Spring  Components 
Iteration  Number 
Step  Size 


6f 

bK 


Gradient  of  F 


Step  Size 
Inversd  of  [  J 

Kronecker  Delta  f=  1  i  =  j 

(  =  0  i  j 

Matrix  of  Known  Spring  Elements 
Number  of  Joints 
Strain  Energy 

Slope  to  the  Left  and  Right  of  Joint  j 

Intermediate  Spring  Rate  Used  in  Computing  the  Second 
Order  Derivatives  of  F 
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LIST  OF  SYMBOLS  FOR  SECTION  4.0  (Cont'd.) 


h  =  Intermediate  Step  Size  Used  to  Obtain  K' 
S&A/C  )=  The  Sign  of  (  ) 


<£ 

A 


u /re 

SUBSCRIPTS 


Relative  Error  Size 

co%  3  Eigenvalue 

Mass  of  Missile 

Weighting  Factor  Coefficients 


«  =  Experimental 

*  =  Theoretical 

*  =  Mode  Shape 

■P  =  Frequency 

~  Indices  or  Counters 
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Section  5.0 


MISSILE  JOINT  SELF  INDUCED  VIBRATION 


Tactical  missile  airframe  joints  can  become  significant  sources 
of  mechanical  shock  and  vibration  under  transient  loading  conditions 
which  exceed  mating  surface  interface  preloads.  If  mating  surface 
separation  and  impact  occurs,  shock  transients  generated  at  *v  '  inter¬ 
face  will  propagate  from  the  airframe  joints  throughout  the  \ le 
structure.  Under  oscillatory  loading  conditions,  the  repeti  shock 
transients  -  modified  by  strain  wave  reflections  -  often  assume  the 
appearance  of  broadband  vibration  when  monitored  at  mi3sil  •  components. 

One  obvious  potential  problem  area  with  noisy  joints  can  occur 
in  laboratory  sinusoidal  vibration  testing  where  the  test  conditions 
are  specified  in  terms  of  displacement,  or  acceleration  input  at  the  test 
fixture/specimen  interface.  Since  only  the  fundamental  input  levels  at 
the  excitation  frequency  are  usually  controlled,  a  significant  overtest 
can  result  from  uncontrolled  broadband  vibration  induced  by  mechanical 
joint  interface  impact. 

The  vibration  environment  source  characteristic  can  also  be  of 
concern  in  the  case  of  air  launched  missiles  which  are  cften  exposed  to 
many  captive  flight  hours.  Excitation  of  comparat.  vely  low  frequency 
aircraft  and  missile  modes  by  aerodynamic  turbuienc^  and/or  buffet  may 
result  in  the  secondary  generation  of  high  frequency  vibration  due  to 
mechanical  interface  impact  within  missile  airframe  joints  and  in  some 
instances  at  aircraft  interface  contact  points  such  as  sway  brace  pads 
and  lugs. 

Recent  tactical  missile  flight  vibration  measurements,  furthermore, 
provide  suspicious  evidence  that  for  some  current  missile  designs  the 
joints  may  be  a  prime  contributor  to  missile  flight  vibration  and  shock 
environments.  If  this  premise  is  valid,  then  improvements  in  missile 
joint  design  may  yield  significant  reductions  in  environmental  exposure 
and  support  cost  saving  relaxations  in  environmental  specifications. 

This  section  presents  the  results  of  an  exploratory  investigation 
of  the  mechanism  of  joint  self  induced  vibration  and  an  initial  evalua¬ 
tion  of  possible  methods  for  control  and  suppression.  The  scope  of  the 
investigation  has  Included  tests  of  both  full  scale  actual  missile  joints 
and  an  idealized  subscale  joint  model.  A  design  concept  for  a  joint 
interface  treatment  to  suppress  self  induced  vibration  involving  flame 
deposited  teflon  was  developed  in  missile  section  level  testing  with 
sufficient  promise  to  warrant  missile  round  level  flight  test  evaluation. 
Test  results  from  both  laboratory  section  level  (encouraging)  and  flight 
missile  level  (inconclusive)  are  reviewed  and  discussed.  Due  to  the 
inconclusive  results  obtained  in  the  missile  level  testing,  a  sub-scale 
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idealized  joint  model  was  designed  with  the  objective  of  isolating  and 
controlling  some  of  the  more  elusive  full  scale  test  parameters.  The 
model  test  results,  while  exhibiting  some  scatter,  do  show  consistent 
trends  and  a  significant  improvement  in  joint  preload,  damping,  and  mech¬ 
anical  noise  reduction  when  a  teflon  coating  is  present  at  the  model 
joint  interfaces. 

More  work  clearly  remains  to  be  done  in  this  area.  The  investi¬ 
gation  thus  far  has  shown  that  joint  interface  impact  can  be  a  powerful 
source  of  broadband  vibration  and  that  interface  coatings  can  effect  a 
substantial  improvement  in  joints  exhibiting  these  characteristics. 

5 .,  1  FULL  SCALE  LAB  TESTS 

The  full  scale  joint  designs  selected  for  consideration  in  this 
study  include  a  discontinuous  land  ring  joint  shown  in  Figure  5-1  and  a 
continuous  split  ring  joint  shown  in  Figure  5-2.  Both  of  these  joints 
are  highly  compliant  (rated  about  ‘'moderate'  under  the  classification 
basis  discussed  in  Section  2.0)  with  comparatively  low  Interface  contact 
preload  (estimated  to  be  approximately  12  pounds/inch)  under  design 
assembly  torques.  The  low  preload  is  best  illustrated  by  the  fact  that 
in  one  tactical  missile  application,  with  the  discontinuous  land  ring  joint, 
the  assembly  preload  is  well  exceeded  in  a  one  g  environment;  i.e.  the 
static  moment  produced  by  the  missile  structure  forward  of  the  joint  is 
nearly  twice  the  preload  induced  moment. 

Ring  joints  of  this  type  have  consistently  demonstrated  a  capacity 
for  generating  joint  interface  impact  vibration  in  section  level  vibra¬ 
tion  testing..  In  one  instance  of  sinusoidal  vibration  testing  of  a 
missile  guidance  section,  a  3g  sweep  was  observed  to  produce  20g  broad¬ 
band  when  the  fundamental  passed  through  a  joint  impact  resonance. 

In?  initial  hypothesis  in  searching  for  a  fix  for  this  behavior 
was  that  compliant  material  placed  on  the  contacting  surfaces  of  the 
joint  would  inhibit  metal  to  metal  impact  and  thus  materially  reduce  the 
resulting  vibration.  It  was  further  conjectured  that  any  adverse  effect 
of  this  compliant  material  on  joint  stiffness  could  be  offset  by  a 
general  improvement  in  load  distribution  resulting  from  filling  voids  and 
irregularities  in  the  mating  surfaces.  Each  of  the  ring  joint  designs 
has  3  contacting  surfaces  -  two  associated  with  the  ring  nut  and  subject 
to  abrasion  as  the  surfaces  slide  in  contact  during  assembly,  and  one 
where  the  missile  shroud  sections  butt  together.  With  practical  manu¬ 
facturing  tolerances,  a  perfect  fit  on  the  mating  surfaces  is  virtually 
never  achieved.  The  uncertain  and  variable  load  paths  due  to  this  feat¬ 
ure  are  viewed  as  a  major  contributing  factor  to  both  high  compliance 
and  noise  generation  characteristics.  Another  obviously  important 
parameter  is  the  joint  preload,  with  any  increase  achieved  either  through 
higher  assembly  torques  or  reduced  friction  in  the  sliding  surfaces 
(threads)  being  beneficial. 
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A  variety  of  candidate  joint  interface  materials  including  epoxy, 
RTV,  plastics,  elastomers,  and  soft  metals  such  as  lead  and  aluminum 
were  selected  for  evaluation.  These  materials,  in  general,  were  only 
introduced  on  the  non-sliding  surfaces  of  the  joint.  Epoxy  and  RTV  were 
applied  also  to  the  sliding  surfaces  with  the  expectation  that  most  of 
the  coating  would  be  wiped  off  points  of  contact  but  that  some  of  the 
voids  in  the  mating  surfaces  might  be  filled.  The  test  set-up  used  to 
determine  the  effect  on  joint  self  induced  vibration,  shown  in  Figure 
5-3,  consisted  of  a  missile  nose  section  cantilevered  front  a  discontin¬ 
uous  ring  joint  attached  through  a  test  fixture  to  an  oil  slide  table. 

The  basic  test  specimen  when  driven  at  resonance  would  exhibit  an  abrupt 
increase  in  broadband  vibration  when  the  joint  preload  was  exceeded  with 
the  ratio  of  broadband  to  fundamental  response  at  the  Joint  exceeding  a 
factor  of  8  for  one  test  point.  The  test  was  then  repeated  with  each  of 
tne  joint  interface  materials  using  a  constant  assembly  torque  and 
recording  broadband  (20  5000  Hz)  response  at  the  joint  for  several  refer¬ 
ence  fundamental  response  levels.  Table  5-1  presents  the  results 
obtained  with  the  different  interface  coatings  for  two  dynamic  bending 
moment  levels  at  the  ring  joint  interface.  These  data  should  be  consider¬ 
ed  qualitative  at  best  with  the  test  results  generally  showing  poor 
repeatability  with  large  variations  for  small  changes  in  test  conditions. 
The  exception  to  this  was  the  Teflon  configuration  which  showed  not  only 
the  best  performance  from  the  standpoint  of  minimum  impact  noise  but  also 
good  repeatability  and  consistency  in  subsequent  re-tests. 

It  should  be  noted  that  the  teflon  configuration  represented  the 
first  effort  to  coat  the  sliding  surfaces  of  the  joint.  Flame  deposited 
teflon  has  sufficient  bond  strength  on  the  coupling  ring  and  low  fric¬ 
tion  on  the  sliding  surfaces  to  remain  intact  and  not  be  wiped  off  the 
contacting  surfaces  during  joint  assembly.  The  low  friction  on  the  slid¬ 
ing  surfaces  in  fact  undoubtedly  accounts  for  a  major  portion  of  the 
substantial  improvement  shown  for  this  configuration  by  producing  a  large 
increase  in  joint  interface  preload  for  the  same  torque.  The  teflon 
coating  was  applied  only  to  the  coupling  ring,  rather  than  all  Joint 
contacting  surfaces,  not  by  choice  but  by  expedience  since  the  coating 
process  was  performed  out  of  plant.  One  other  potentially  important 
characteristic  of  the  teflon  was  observed  to  be  an  apparent  significant 
increase  in  effective  structural  damping  for  the  test  specimen,  with 
larger  shaker  output  required  for  the  same  bending  moment  response. 

Based  on  these  admittedly  limited  but  encouraging  results,  the  use  of 
teflon  on  ring  Joint  interfaces  was  concluded  to  have  shown  sufficient 
promise  to  warrant  missile  level  evaluation. 

5.2  MISSILE  LEVEL  QUALIFICATION  AND  FLIGHT  TEST 

A  continuing  series  of  test  firings  for  an  advanced  version  of  a 
surface  launched  missile  planned  for  the  Spring  of  1  ‘>73  offered  an 
opportunity  for  missile  level  flight  evaluation  of  tne  effect  of  teflon 
coated  joints  on  missile  flight  vibration.  Environmental  data  obtained 
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on  earlier  flights  of  essentially  the  same  missile  airframe  with  unmodi¬ 
fied  joints  provided  a  direct  basis  for  comparison.  The  missile  config¬ 
uration  In  question  employs  six  primary  joints.  Three  of  which  are  ring 
joints,  two  being  of  the  discontinuous  land  type  and  one  of  the  contin¬ 
uous  spilt  ring  type.  The  remaining  three  joints  are  of  the  tension 
bolt  type,  considered  to  be  very  stiff  and  sufficiently  preloaded  under 
assembly  torques  to  oreclude  any  separation  under  flight  loads.  The 
missile  profile  and  joint  locations  are  shown  in  Figure  5-4. 

A  decision  was  made  to  treat  only  the  ring  joints  and  further¬ 
more  to  confine  the  teflon  coating  to  the  coupling  rings,  recognizing 
that  one  of  the  interfaces  for  each  joint,  as  was  the  case  in  the  lab 
test  configuration,  would  not  be  teflon  coated.  Prior  to  design  release 
and  acceptance  for  flight  of  this  missile  joint  modification,  several 
possible  issues  needed  to  be  resolved  in  securing  a  design  requalification. 
This  effort  included: 

1.  Proof  load  tests  of  the  modified  joints  to  demonstrate  that 
the  teflon  coating  had  not  compromised  structural  integrity. 

2.  Creep  tests  to  provide  assurance  that  missile  assembly  pre¬ 
loads  (albeit  low  in  the  case  of  the  ring  joints)  wouid  not 
be  seriously  degraded. 

3.  Further  lab  evaluation  to  confirm  the  expected  noise  suppress¬ 
ion  characteristics  of  the  teflon. 

One  facet  of  this  phase  of  the  investigation  was  a  concerted 
attempt  to  devise  a  means  for  measuring  the  interface  preload  -  both  for 
the  basic  and  teflon  coated  joints.  This  effort,  unfortunately,  was 
largely  unsuccessful,  precluding  definition  of  this  important  parameter 
which  would  have  been  particularly  useful  in  interpreting  dynamic  response 
and  creep  characteristics,.:  I^yof  loads  were  successfully  applied  to  the 
joints  in  question  without  incident,  and  the  creep  issue  was  qualitatively 
resolved  by  retorqueing  control  joints  after  suitable  aging  and  noting 
that  no  relative  motion  of  the  joint  coupling  ring  occurred. 

Joint  impact  noise  suppression  tests  were  carried  out  using  essen¬ 
tially  the  same  test  set-up  shown  in  Figure  5-3.  In  this  case,  however, 
three  different  test  fixtures  were  required  to  represent  the  three 
different  joint  locations  on  the  missile  airframe.  The  test  results  for 
the  three  joints  are  plotted  in  Figure  5-5  in  terms  of  noise  suppression 
achieved  by  the  teflon  coating  versus  the  basic  Joint  noise  factor,  with 
these  parameters  defined  as  follows: 
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ln-plane  fundamental  response  at  the  joint 


=  in-plane  broadband  response  at  the  joint  (20-5000  Ha) 
=  in-plane  noise  at  the  joint 
~  Joint  nol-se  factor 


joint  noise  suppression  factor  -  a  ratio  of 
teflon  coated  joint  noise  factor  to  basic  joint 
noise  factor. 


The  test  results  obtained  in  this  series  showed  considerably  less 
improvement  in  joint  noise  characteristics  with  teflon  coated  coupling 
rings  than  had  been  observed  in  the  earlier  testing.  Previous  lab  data 
for  Joint  1  are  shown  for  comparison.  Joint  3  at  low  response  levels  was 
"quieter"  in  the  basic  configuration  then  with  teflon  for  the  one  speci¬ 
men  tested,  although  the  performance  of  the  teflon  configuration  improved 
rapidly  as  the  excitation  level  was  increased.  Data  points  connected  by 
straight  lines  in  Figure  5-5  reflect  the  two  different  response  levels  for 
the  same  joint.  These  data  would  appear  to  indicate  that  "quiet"  joints 
do  not  admit  much  improvement  while  considerable  benefit  from  the  teflon 
coating  might  be  expected  with  "noisy"  joints. 

Since  the  teflon  coated  rings  had  satisfactorily  passed  all  design 
qualification  requirements,  the  configuration  was  released  for  flight 
test  evaluation.  A  total  of  four  instrumented  test  flights  were  made  with 
complete  data  acquisition.  From  the  standpoint  of  showing  an  improvement 
attributable  to  the  teflon  coated  coupling  rings,  however,  the  flights 
were  uniformly  disappointing  being  virtually  indistinguishable  from  the 
earlier  flight  series  with  the  basic  unmodified  joints. 

Possible  interpretations  of  this  test  outcome  include: 

1.  The  importance  of  coating  all  three  Joint  interface  surfaces 
rather  than  just  two  may  have  been  underestimated.  Lab 
testing  could  have  been  misleading  in  this  respect  if  excita¬ 
tion  levels  relative  to  joint  preloads  were  not  representative 
of  the  flight  conditions. 

2.  Joint  impact  may  not  be  a  significant  contributor  to  the  flight 
vibration  environment  for  this  missile  configuration.  Tn  this 
case,  improvements  in  the  joint  response  characteristics  would 
not  have  been  noticed. 


In  hopes  of  answering  some  of  the  questions  associated  with  joint 
self  induced  vibration,  an  idealised  ring  joint  model  which  would  admit 
more  precise  measurements  of  the  critical  parameters  was  designed  and 
tested. 
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5.3  JOINT  IMPACT  MODEL  DESIGN  AND  TEST 

The  ideal  test  specimen  for  joint  impact  modeling  was  visualized 
(as  in  previous  joint  investigations)  as  a  simple  uniform  structure 
with  a  single  ring  joint  replica  at  the  mid-span.  Free-free  boundary 
conditions  would  be  used  to  avoid  uncertainties  in  support  constraints. 
As  a  result,  the  primary  joint  characteristics  of  interest  (compliance, 
damping,  impact  noise  generation)  would  dominate  and  be  deducible  from 
the  test  specimen  dynamic  response.  The  model  joint  replica  design, 
while  permitting  considerable  simplification,  was  required  to  simulate 
all  of  the  important  properties  of  a  typif-*1  full  scale  missile  ring 
joint  Including  compliance,  low  interface  preload,  and  similar  assembly 
and  interface  contact  characteristics.  Additionally,  the  joint 
replica  design  approach  must  provide  accurate  and  reliable  means  for 
measuring  joint  interface  preload  versus  applied  torque  during  assembly 
and  as  a  function  of  time  during  creep  investigations. 

The  joint  replica  designed  to  satisfy  these  requirements  is 
illustrated  in  Figure  5-6.  Joint  preload  is  accomplished  through  a 
single  strain  gaged  bolt  on  the  center  line  of  the  aluminum  test  speci¬ 
men,  with  this  preload  reacted  circumferentially  through  a  separate 
joint  ring  representing  multiple  joint  interface  contact  surfaces. 
Interchangeable  stainless  steel  ’’joint  rings''  provide  a  convenient  means 
for  investigating  the  effects  of  various  joint  interface  materials. 

The  model  joint  compliance  is  assumed  to  be  provided  primarily  by  the 
extenslonal  elasticity  of  the  center  axis  bolt  estimated  as  follows: 


where:  J0  -  effective  spring  length,  3". 

r  =  effective  radius :  1.265  Inches. 

6  2 

=  modulus  of  elasticicy,  30  (10)  #/in  . 

2 

/9  =  cross  sectional  area  of  spring  elements,  in  . 
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The  center  axis  bolt  is  locked  to  one  half  of  the  model  with  a 
locking  nut  and  the  model  assembled  by  applying  preselected  torques  to 
the  other  half  of  the  test  specimen.  The  threads  on  the  center  axis 
bolt  are  lubricated  to  insure  that  the  primary  frictional  torques  in  the 
joint  assembly  are  associated  with  the  contacting  surfaces  on  the  inter¬ 
face  ring.  The  full  scale  ring  joints  described  in  Section  5.2  have 
estimated  compliances  ranging  from  0,75(10)“8  to  2 . 7(10) -8  rad/in  #  and 
fall  in  the  moderate  to  good  joint  compliance  classification  scale.  A 
corresponding  range  for  the  model  joint  compliance  was  provided  by 
making  three  center  axis  couplers  with  diameters  from  1/8  to  3/8  inches. 
A  direct  comparison  between  model  and  full  scale  joint  compliance  is 
obtained  by  multiplying  the  full  scale  values  by  the  cube  of  the  full 
scale  to  model  diameter  ratio  as  follows:. 

CONFIGURATION  Cd(10)6  Rad/In  # 

Fuji!  Scale  .88  -  3.2 

Model  .57  -  5.1 


Where:  Dp  -  Full  scale  Missive  Diameter,  13,5  inches 
£> ^  =  Model  Diameter,  2.75  inches 

5.3.1  Model  Joint  Preload.  The  relationship  between  joint  pre¬ 
load  -  measured  by  strain  gage3  on  the  center  axis  tension  bolt  -  and 
applied  torque  was  investigated  for  three  joint  interface  coatings  in 
addition  to  the  basic  clean  ory  joint.  The  results  of  these  measurements 
are  shown  ir  Figure  5-7.  The  teflon  coating,  approximately  3  mils  thick, 
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was  flame  deposited  by  an  application  process  identical  to  that  used  on 
the  full  scale  rings  discussed  in  Section  5.2.  The  Molybdenum 
Disulfide  (MDS)  Dry  Film  was  applied  using  an  aerosol  spray;  and  the 
Silicon  Grease,  DC-4,  was  directly  wiped  on  the  joint  interface  surfaces. 
A  thorough  cleaning  of  the  joint  interfaces  with  solvent  was  performed 
between  each  test  of  a  different  coating  material. 

Both  of  the  lubricants,  MDS  and  DC-4,  resulted,  a3  might  be 
expected,  in  a  fairly  significant  increase  in  joint  preload,  ranging 
from  60  to  100  percent.  The  teflon  coating,  however,  produced  the 
largest  increase  in  joint  preload  with  a  consistent  and  repeatable  gain 
of  greater  than  5  over  the  basic  unlubricated  joint. 

Teflon  has  a  well  recognized  tendency  to  cold  flow  under  load. 

To  assess  the  implications  of  this  behavior  on  the  preload  of  a  joint 
with  teflon  on  the  interface  surfaces,  a  preload  of  600  pounds  was 
applied  to  the  model  joint  and  found  to  have  been  maintained  with 
virtually  no  change  after  64  hours.  The  estimated  loading  on  the  teflon 
for  this  condition  was  318  psi,  assuming  uniform  distribution  over  the 
joint  interface. 

5.3.2  Model  Vibration  Test  Setup  and  Results.  A  sketch  of  the 
test  setup  used  to  evaluate  the  dynamic  response  characteristics  of  the 
ring  joint  model  is  shown  in  Figure  5-8.  A  free-free  suspension  was 
employed  with  the  model  oriented  vertically  to  avoid  any  gravity  moment 
bias  on  the  joint.  Force  excitation  was  provided  by  an  MB  Electrodynamic 
Shaker,  rated  at  50  pounds  peak  force  capability,  monitored  by  a  force 
gage  at  the  input  station  on  the  test  specimen.  Triaxial  response 
(acceleration)  was  monitored  at  the  top  end  of  the  specimen  to  establish 
a  total  response  reference,  and  both  force  and  in-plane  acceleration  at 
the  input  station  were  monitored  to  provide  a  basis  for  estimating 
system  damping.  Although  vibration  induced  by  joint  interface  impact  is 
propagated  in  all  response  coordinates,  the  longitudinal  response  («) 
was  concluded  to  provide  the  primary  and  most  sensitive  measure  of  joint 
impact  induced  response.  The  impact  forcing  function  is  assumed  to  be 
impulsive  in  nature  with  primary  excitation  at  twice  the  transverse 
mode  frequency  with  the  response  distributed  over  a  broad  frequency 
spectrum.  Total  impact  induced  noise  was  interpreted  as  the  rms  vibra¬ 
tion  over  a  20-5000  hz  bandwidth  measured  in  thelongitudi..al  coordi¬ 
nate  (B)  at  the  response  station  on  the  test  specimen.  This  broadband 
vibration  level  was  then  normalized  by  the  vector  sum  of  the  inplane  and 
crossplane  transverse  response  at  the  excitation  frequency  to  establish 
a  noise  ratio  for  the  particular  test  condition. 

Table  5-2  presents  response  data  for  the  basic  configuration 
with  uncoated  metalic  surfaces  at  the  joint  interface.  Test  parameters 
include  variations  in  both  joint  preload  and  excitation  level.  Estimates 
of  system  damping  shown  are  based  on  calculated  generalized  mass  and 
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generalized  force  in  the  model  response.  The  general  trend  is  for  fre¬ 
quency  to  increase  with  response  level.  Corresponding  data  for  the 
test  specimen  with  teflon  at  the  joint  interface  is  presented  in 
Table  5-3.  Considerable  scatter  in  the  response  parameters  is  shown  for 
both  configurations  at  tne  lower  preload  and  excitation  levels,  reflect¬ 
ing  the  nonlinearities  and  cross  coupling  in  the  test  specimen  response. 
The  two  higher  values  for  Joint  preload  used  with  the  teflon  configura¬ 
tion  (200  and  400  pounds)  are  intended  to  represent  a  conservative 
estimate  of  the  preload  increase  which  would  be  realized  over  the  basic 
configuration  (50  to  100  pounds)  for  the  same  assembly  torque.  Particu¬ 
larly  noteworthy  is  the  fact  that  the  teflon  configuration  at  the  higher 
preload  levels  exhibits  pronounced  decreases  in  impact  noise  ratio 
accompanied  by  significant  increases  in  resonant  frequency.  The  predicted 
relationship  between  test  specimen  1st  mode  frequency  and  effective  joint 
compliance  is  shown  in  Figure  5-9.  Upper  bound  frequency  test  points 
are  shown  for  the  basic  configuration  assembled  with  50  to  100  pounds  for 
comparison  with  the  teflon  configuration  assembled  first  with  equal 
preload  (50  to  100  pounds)  and  then  with  "equal"  torque  (200  to  400 
pounds  preload).  Table  5-4  presents  a  comparison  of  the  basic  and 
teflon  configuration  response  based  on  an  arithmetic  average  of  all  test 
data  with  the  following  conclusions:, 

1.  For  comparable  preloads,  the  teflon  coating  on  the  model 
joint  interface  reduced  joint  impact  vibration  by  an  average 
factor  of  greater  than  2  whil#  increasing  mode  damping  by  an 
average  factor  of  greater  than  2. 

2.  For  comparable  assembly  torques,  the  teflon  configuration 
reduced  joint  impact  vibration  by  an  average  factor  of 
nearly  ten  while  maintaining  and  slightly  increasing  the 
improved  damping  attributed  to  the  teflon.  Additionally, 
the  effective  joint  stiffness  was  found  to  be  nearly  a 
factor  of  3  greater  than  the  basic  joint  for  the  same  torque, 
presumably  because  of  the  significantly  higher  joint  preload 
realized  with  teflon. 

5.4  FULL  SCALE  IMPLICATIONS  OF  MODEL  TEST  RESULTS 

1.  Joint  interface  impact  can  be  a  significant  source  of  self- 
induced  vibration. 

2.  The  vibration  generation  mechanism  requires  physical  separa¬ 
tion  at  the  joint  interface  for  impact  to  occur. 

3.  Corrective  measures  would  appear  to  include  Increasing  pre¬ 
load  to  avoid  interface  separation  and/or  coating  the  impacting 
surfaces  with  a  compliant  material  to  attenuate  the  response. 

4.  Teflon  as  a  candidate  material  for  joint  interface  treatment 
has  beer,  shown  in  idealized  model  tests  to  produce  a 
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substantial  improvement  in  joint  preload,  reduction  in 
self-induced  vibration,  and  increase  in  Joint  contribution 
to  structural  damping. 

5.  Conflicting  and  mixed  results  obtained  with  partial  teflon 
treatment  of  full  scale  noise  susceptible  joints  are  suspected 
to  have  been  caused  by  neglecting  to  coat  all  of  the  primary 
joint  interface  surfaces. 

6.  The  results  to  date  in  exploring  joint  interface  coatings 
have  shown  some  encouraging  trends.  Many  questions  remain 
unanswered,  however,  and  more  work  is  clearly  needed  before 
practical  applications  can  be  considered  in  actual  missile 
structure. 
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Table  5-1 

Measured  Noise  Ratios  for  Discontinuous  Land 
Joint  with  Different  Surface  Treatments 
Constant  Assembly  Torque  4500  in  # 


Config. 

Application 

Response 
Level  (1) 

Noise 

Ratio  (2) 

Basic 

Dry  Film  Lube  (MDS)  on 

1 

3.37 

All  Surfaces 

2 

8.30 

Epoxy 

All  Surfaces  (with  parting 

1 

1.36 

agent)  to  Fill  Voids 

2 

5.45 

RTV 

All  Surfaces 

1 

1.19 

2 

2.62 

Lead 

Foil  Tape  on  Non-Sliding 

1 

1.35 

Surfaces  Only 

2 

2.52 

Aluminum 

Foil  Tape  on  Non-Sliding 

1 

1.70 

Surfaces  Only 

2 

1.98 

Silicone 

Thin  Sheet  Non-Sliding 

1 

2.10 

Surfaces  Only 

2 

2.01 

Teflon 

Flame  Deposited  on 

1 

1.12 

Coupling  Ring  Only 

2 

1.14 

(1)  Response 
Level 


Dynamic  Bending  Moment 
Induced  at  Joint 


1  3000  in  # 

2  5000  in  # 


(2)  Noise  ratio  defined  as  ratio  of  broadband 
response  to  fundamental  response  (ff®8 ) 
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Table  5-2 

Basic  Joint  Model  Dynamic  Response 


Preload 

# 

Freq 

hz 

w  ^ 

'r--00 

%  Cross 
Plane 

Noise 

Ratio 

Damping 

V 

50 

]  01 

9.9 

110 

.19 

.0078 

50 

106 

16 . n 

117 

.66 

.0077 

50 

103 

22.2 

119 

72 

.0049 

n 

107 

7.4 

93 

.11 

.022 

108 

18.6 

124 

.78 

.0095 

75 

108 

24.7 

116 

.63 

.0079 

100 

“  ,M  ■- 

110 

9.9 

108 

1.42 

.046 

100 

113 

11.5 

86 

.45 

.017 

100 

_ 

109 

2C.3 

109 

■  _  .... 

.84 

-  -■ 

.0098 

a 


Where : 

X  =  inplane  response  at 

y  =  crossplane  response  at  •fi 

nr  =  vector  sum  x  *■  y 

H  =  broadband  (20-5000  hz) 
response 

Noise  Ratio  =  %  J rir 
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Table  5-4 

Basic/Teflon  Joint  Model 
Dynamic  Response  Comparison 


Noise  Factor  Reduction: 


Equal  Preload 

.285/. 644  = 

.44 

Equal  Torque 

.070/. 644  = 

.11 

Damping  Increase: 

Equal  Preload 

.032/. 015  = 

2.1 

Equal  Torque 

.038/. 015  = 

2.5 
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INTEGRATION  INTO  OVERALL  SYSTEM  REQUIREMENTS 


The  study  thus  far  has  been  concerned  with  structural  dynamic 
characteristics  of  joints  such  as  stiffness,  tightness  and  damping. 

There  are  a  number  of  other  characteristics  that  influence  the  design 
of  tactical  missile  airframe  joints.  These  include  strength,  weight, 
volumetric  efficiency,  degree  of  enclosure,  producibility  and  maintain-* 
ability.  A  brief  discussion  of  each  of  these  topics  is  now  presented 
to  provide  an  overview  of  airframe  joint  characteristics. 

A  rating  scheme  is  then  developed  which  is  intended  to  facilitate 
the  integration  of  these  various  characteristics  into  the  overall  system 
requirements.  The  rating  scheme  will  then  be  applied  to  three  different 
joints  as  an  illustration.  The  three  joints,  which  are  used  In  the 
Medium  Range  Standard  Missile  (RIM-66),  are  shown  in  Figures  6-1  thru 
6-3. 

6.1  SYSTEM  CONSIDERATIONS 

The  airframe  joints  of  a  tactical  missile  possess  attribute, 
which  must  satisfy  a  number  of  requirements.  The  dominant  requirements 
which  will  be  considered  here  are  strength,  weight,  volumetric  efficiency, 
degree  of  enclosure,  producibility  and  missile  maintainability. 

6.1.1  Strength 


The  static  load  carrying  capability  of  the  airframe  of  a 
typical  tactical  missile  is  often  determined  by  the  airframe  joints 
rather  than  the  shell  structure  between  joints.  The  fatigue  capability 
of  the  airframe  is  also  frequently  determined  by  the  joints.  The  reason 
that  airframe  joints  are  relatively  inefficient  loao  carrying  members 
when  compared  to  the  adjacent  shell  structure  is  associated  with  the 
distortion  of  the  load  path  created  by  the  presence  of  the  joint. 

The  critical  static  strength  requirements  for  airframe  joints  are 
frequently  the  bending  moments  that  arise  from  lateral  loading  conditions 
such  as  handling  of  the  assembled  missile  cr  £-ee  flight  steering  maneu¬ 
vers,  There  are  of  course  shear,  torque  anc  longitudinal  load  require¬ 
ments  imposed  on  airframe  joints.  However,  the  strength  requirement  that 
drives  the  design  of  tactical  missile  airframe  joints  is  usually  the 
bending  moment. 

The  strength  of  a  joint  can  be  quite  sensitive  to  design  details 
that  are  sometimes  quite  subtle.  Since  stress  concentrations  play  an 
important  role  in  the  strength  of  joints,  considerations  such  as  ductil¬ 
ity  of  the  material  and  avoidance  of  sharp  or  rapid  transitions  are 


important.  The  static  strength  of  the  three  airframe  joints  that  are 
studied  in  this  section  of  the  report  provide  an  indication  of  the 
variation  in  strength.  The  strengths  are  listed  below. 


Illustration 

Strength 

Joint  Type 

(Figure  No. ) 

(Inch- Pounds) 

Continuous  Land 

6-1 

104,000  to  209,000 

Four  Bolt  Tension 

6-2 

231,000  to  347,000 

Eight  Bolt  Tension 

6-3 

345,000  to  425,000 

The  variation  in  the  strength  for  tne  first  and  third  joints  represent 
the  effect  of  minor  design  changes  chat  were  implemented  to  improve  the 
strength  of  the  joint.  The  variation  in  the  strength  of  the  second 
joint  is  due  to  a  combination  of  material  property  and  dimensional 
differences. 

A  measure  of  the  strength  efficiency  of  a  joint  can  be  developed 
by  ratioing  the  strength  of  the  joint  to  the  flexural  strength  of  the 
adjacent  shell  structure. 


Joint  Type 


Strength  Efficiency  -  (7.) 


Continuous  Land 
Four  Bolt  Tension 
Eight  Bolt  Tension 


28  to  57 
41  to  G2 
62  to  76 


6.1,2  Weight 

The  weight  of  a  joint:  is  defined  as  tie  weight  of  the 
airframe  in  the  vicinity  of  the  joint  less  the  weight  of  the  thin  shell 
sections  if  they  were  extended  to  the  joint  interface.  Thus  it  is  seen 
that  the  bi Ild-up  in  the  shell  adjacent  to  a  Joint  is  included  as  part 
of  the  weight  of  the  joint.  The  weight  of  the  fasteners,  cover. <  and  fair¬ 
ings  associated  with  the  joint  are  also  included  in  the  weight  figure. 

The  weight  of  each  of  the  three  joints  was  calculated  using  the  approach 
outlined  above.  The  weight  of  the  three  joints  is  listed  below. 

Weight 

Joint  Type  (Pounds) 

Continuous  Land  3.83 

Four  Bolt  Tension  8.81 

Eight  Bolt  Tension  o  qq 
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A  measure  of  the  weight  efficiency  of  a  joint  can  be  developed 
by  ratioing  the  weight  of  the  thin  shell  sections  over  naif  a  body 
diameter  if  no  Joint  were  present  to  the  weight  of  the  same  region  of 
the  structure  with  the  joint  present.  This  efficiency  is  of  course  ref¬ 
erenced  to  the  thin  shell  section  which  may  not  have  been  designed  for 
minimum  weight. 


Joint  Type 

Weight  Efficiency  -  (%) 

Continuous  Land 

37 

Four  Bolt  Tension 

26 

Fight  Bolt  Tension 

48 

6.1.3  Volumetric  Efficiency 

The  presence  of  joints  in  an  airframe  influence  the  volume 
available  to  package  the  electronics,  propulsion  and  ordnance,  A  meas¬ 
ure  of  volumetric  efficiency  that  reflects  the  influence  that  joints 
have  on  packaging  volume  is  the  open  cross  sectional  area  of  the  joint. 
The  volumetric  efficiency  of  the  three  joints  are  tabulated  below. 


Joint  Type 


Volumetric 

Efficiency 


Continuous  Land  8670 
Four  Bolt  Tension  91% 
Eight  Bolt  Tension  54% 


The  first  and  second  joints  are  quite  efficient  with  respect  to  volume 
required  while  the  third  joint  is  inefficient  in  that  it  occupies  almost 
one  half  of  the  cross  sectional  area. 


The  significance  of  -'olumetric  efficiency  is  dependent  upon  the 
design  application.  If  the  design  is  such  that  the  packaged  volume  must 
pass  thru  the  inside  diameter  of  the  joint,  the  volume  penalty  is  exper¬ 
ienced  over  the  entire  length  of  the  packaged  item.  Thus  a  substantial 
volume  penalty  would  be  incurred  for  such  an  application.  However,  if 
the  packaged  volume  need  not  pass  thru  the  inside  diameter  of  the  joint, 
the  volume  penalty  is  experienced  only  over  the  relatively  short  length 
of  the  joint.  Applications  in  which  the  packaged  volume  need  not  pass 
thru  the  inside  diameter  of  the  joint  are  usually  those  in  which  the 
entire  packaged  volume  is  loaded  from  the  opposite  end  of  the  airframe 
section.  The  volume  constraint  of  the  joint  on  the  opposite  end  is  then 
of  course  the  governing  factor. 

6.1.4  Degree  of  Enclosure 


The  sealing  or  degree  of  enclosure  characteristics  of 
joints  are  a  consideration  in  most-  tactical  missile  applications.  It 
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Is  generally  prefeiaole  to  provide  sealing  at  the  airframe  joints  for 
the  entire  interior  of  the  missile  rather  than  for  selected  sensitive 
components.  The  purpose  of  the  seal  is  to  preclude  the  entrance  of 
moisture,  sand  and  dust. 

Sealing  of  airframe  joints  is  generally  accomplishec  by  using 
elastomeric  O-rings  in  the  joint  interface.  Typically  an  annular  groove 
is  machined  in  one  of  the  mating  surfaces  and  the  O-ring  is  sited  such 
that  it  is  stretched  when  installed  in  the  groove.  Thu  tension  in  the 
installed  O-ring  provides  for  the  retention  of  it  during  assembly  of  the 
joint. 


The  O-ring  provides  sealing  of  the  primary  potential  leakage  path 
to  the  interior  of  the  airframe.  There  are  however,  a  number  of  secon¬ 
dary  leakage  paths  that  must  be  sealed  with  certain  joint  designs.  The 
eight  bolt  tension  joint  shown  in  Figure  6-3  is  an  example  of  a  design 
that  has  potential  secondary  leakage  paths.  The  eight  fasteners  pass 
from  the  exterior  to  the  sealed  interior  of  tne  airframe.  This  provides 
eight  potential  leakage  paths.  Sealing  of  the  fastener  assembly  is 
accomplished  by  providing  a  spot  faced  surface  on  the  casting  under  the 
washer.  The  machined  surfaces  and  the  contact  stresses  generated  on 
assembly  of  the  joint  provide  sealing  of  the  fastener  areas.  Other  joint 
designs  such  as  the  discontinuous  land  showr  In  Figure  6-1  and  the  four 
bolt  tension  shown  in  Figure  6-2  preclude  the  existence  of  secondary  leak¬ 
age  paths  by  keeping  the  fastener  totally  external  to  sealed  interior. 

6.1.5  Produclbllity 

The  producibility  attribute  of  a  joint  design  is  concerned 
with  the  cost  of  manufacturing  the  joint  hardware.  Since  costs  are 
highly  dependent  upon  production  quantities,  no  attempt  will  be  made  here 
to  generate  quantitative  cost  figures,.  Rather  the  producibility  of  the 
joint  will  be  based  upon  the  complexity  of  the  machining  involved  in 
fabrication  of  the  hardware. 

The  continuous  land  joint  shown  in  Figure  6-1  has  three  machined 
elements.  Two  of  the  machined  elements  are  complex  in  that  a  large  acme 
thread  surface  and  tight  tolerances  are  involved.  The  two  elements  are 
the  split  coupling  nut  and  the  mating  female  surface.  Thus  the  produc¬ 
ibility  of  this  joint  design  is  rated  low. 

The  four  bolt  tension  joint  shown  in  Figure  6-2  has  six  machined 
elements,  four  of  which  are  simply  bolts.  The  two  major  elements 
require  only  straight  forward  machining  to  moderate  tolerances.;  Thus  the 
producibility  of  this  joint  design  is  rated  high. 

The  eight  bolt  tension  joint  shown  in  Figure  6-3  has  two  major 
machined  elements  plus  eight  fastener  assemblies.  The  tolerances  involved 
are  moderate,  but  the  geometry  of  the  assembly  is  such  that  an  elaborate 
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casting  is  required  for  one  member  and  considerable  machining  is 
required  on  the  other  member  to  minimize  weight.  Thus  the  producibility 
of  this  joint  design  is  rated  low. 

6.1.6  Maintainability 

The  ease  of  assembly  and  disassembly  of  a  Joint  design 
effects  both  the  producibility  and  maintainability  of  tactical  missiles. 
Extensive  functional  testing  of  the  missile  electronics  is  performed 
during  both  manufacturing  and  deployment.  All  repair  work  and  certain 
types  of  functional  testing  require  disassembly  of  the  airframe  Joints. 
Logistic  policies  also  commonly  require  periodic  disassembly  of  the 
joints.  The  time  and  equipment  required  to  assemble  and  disassemble  as 
well  as  the  opportunity  for  human  error  or  damage  to  the  hardu~re  become 
important  considerations  when  large  quantities  of  hardware  or  frequent 
testing  are  involved. 

The  maintainability  of  the  joint  hardware  itself  is  limited  to 
inspection  of  the  hardware  such  as  the  machined  surfaces  at  disassembly 
and  replacement  of  the  O-rings  and  possibly  certain  of  the  fasteners  at 
reassembly. 

The  ease  of  assembly  and  reassembly  of  the  continuous  land  joint 
i c  oomew'nat  greater  than  that  of  the  four  and  eight  bolt  tension  joints. 
Although  the  continuous  land  joint  has  a  single  fastener  that  requires 
roughly  only  one  full  turn  to  engage  ot  disengage,  it  is  difficult  to 
position  to  start  the  thread  engagement.  The  tension  bolt  joints  are 
easier  to  position  but  the  need  to  individually  torque  each  fastener  on 
assembly  is  time  consuming. 

6.2  INTEGRATION  METHOD 

The  various  attributes  of  airframe  joints  that  were  discussed  in 
section  6.1  plus  the  structural  dynamic  attributes  must  be  considered  in 
an  integrated  fashion  to  produce  an  overall  rating  of  different  joint 
designs.  This  Is  accomplished  by  assigning  a  figure  of  merit  to  the 
individual  joint  attributes,  a  relative  weighting  among  the  attributes, 
and  finally  summing  the  ratings  over  the  attributes. 

The  three  joints  shown  in  Figures  6-1  thru  6-3  will  be  rated  as 
an  Illustration.  Equal  weightings  among  the  attributes  are  used,  although 
unequal  weightings  can  of  course  be  used  to  emphasize  or  deemphasize 
certain  attributes  relative  to  the  others.  The  four  ratings  of  excellent> 
good,  fair  and  poor  are  used  for  thp  attributes  based  on  the  quantitative 
and  qualitative  factors  proposed  in  Table  6-1.  In  addition  to  the  joint 
attributes  discussed  in  Section  6.1,  the  structural  dynamic  attributes  of 
stiffness  and  tightness  are  included  in  Table  6-1,  The  stiffness  rating 
is  the  NASA  rating  discussed  in  Reference  3.  The  tightness  attribute 
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refers  to  self  Induced  noise  characteristics  that  are  discussed  in 
Section  5  of  the  present  report. 

The  illustrative  rating  comparison  for  the  three  joints  (Figures 
6-1  thru  6-3)  is  presented  in  Table  6-2.  Using  equal  weightings  for  each 
of  the  eight  joint  attributes  results  in  the  best  overall  rating  for  the 
four  bolt  tension  joint.  The  overall  rating  using  equal  weighting  factors, 
does  not  reveal  large  differences  between  the  three  joints.  However,  the 
use  of  unequal  weighting  factors  in  which  certain  attributes  are  assigned 
very  high  or  very  low  emphasis  would  produce  more  dramatic  differences 
in  the  overall  ratings. 
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Table  6-2 

Illustrative  Rating  Comparison  for  Three  Joints 


Ratings  ^ 

Attribute 

Continuous  Land 

Four  Bolt  Tension 

Eight  Bolt  Tension 

Stiffness 

F 

G 

F 

Tightness 

P 

G 

G 

Strength 

G 

G 

E 

Weight 

G 

F 

G 

Volume 

G 

E 

F 

Degree  of  Enclosure 

E 

E 

F 

Producibility 

F 

£ 

F 

Maintainability 

E 

G 

F 

Overall 

G(-) 

G 

F  (+) 

r* 


-M, 


F  =  Fair,  P  =  Poor 


(1)  E  =  Excellent 
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INTRODUCTION 


The  computational  system  used  for  implementing  the  method  of 
analysis  described  in  Section  4  is  composed  of  the  following  two 
digital  computer  programs: 

1)  Program  FILLIN 

2)  Program  JOINTS 

Computer  program  FILLIN  is  a  small  prelude  program  that  accepts  measured 
modal  data  obtained  at  a  set  of  test  missile  stations  and  interpolates 
these  data  to  provide  "measured"  modal  data  at  a  set  of  missile  stations 
consistent  with  theoretical  modal  data  calculated  within  computer  program 
JOINTS.  This  preliminary  step  is  needed  so  that  a  comparison  of 
experimental  and  theoretical  modal  data  at  identical  missile  stations 
can  be  made  within  computer  program  JOINTS. 

Within  the  Appendix  input  data  instructions,  data  output  and 
program  limitations  are  discussed  for  both  computer  programs  FILLIN  and 
JOINTS.  Computer  program  FORTRAN  listings  and  a  sample  application  data 
deck  listing  are  also  presented. 

PROGRAM  FILLIN 

Because  comparisons  between  experimental  and  theoretical  modal 
data  are  made  at  all  moral  analysis  stations,  within  computer  program 
JOINTS,  computer  program  FILLIN  was  written  to  provide  interpolated 
measured  modal  data  for  the  modal  analysis  stations.  The  resulting 
interpolated  measured  mode  shape  deflections  and  slopes  are  punched  on 
cards  for  the  complete  set  of  modal  analysis  missile  stations  in  a 
format  acceptable  for  subsequent  input  to  computer  program  JOINTS. 

Usually,  only  mode  shape  deflections  are  measured  in  the  labora¬ 
tory  while  botl  mode  shape  deflections  and  slopes  are  computed.  There¬ 
fore,  an  added  feature  of  computer  program  FILLIN  is  the  computation  of 
mode  shape  slopes  from  the  measured  mode  shape  dellection  data. 

Computer  program  FILLIN  has  the  following  restrictions: 

1)  There  must  be  at  least  two  experimental  points  on  each  appen¬ 
dage  (to  establish  slope). 

2)  There  must  be  at  least  two  experimental  points  on  either  side 
of  a  joint  (to  establish  shear  discontinuity). 

Computer  program  FILLIN  and  JOINTS  were  written  to  be  run  on  the 
CDC  6400  digital  computer  with  32K  words  of  memory  storage,  under  control 
of  the  CDC  6000  Series  Scope  Monitor  System  (Version  3.3),  at  General 


101 


VJ/-T 


*.t.lWL'JJ.'JMWI<iJMU.  -J  >>  '■U'"I^»W^)JI.*WU^I1|»IW)I'-I‘N-1'-"  'J1**1 


¥ 


I  * 


l 

|F 


’ 


r 

i 

; 

c 

i 

i 

I 


1 


I 


I 


\ 


■^r 


Dynamic*.  Pomona  Division.  All  programs  and  subroutines  are  written  in 
the  CDf  6400  FORTRAN  Extended  Language  (Version  3.0)  and  should  be 
easily  implemented  on  any  machine  having  a  FORTRAN  IV  compiler.  Input/ 
output  devices  required  are  the  card  reader  (logical  unit  60),  the  line 
printer  (logical  unit  6)  and  the  '•-id  punch. 

Computer  program  FILLIN  is  composed  of  the  following  routines; 

1)  Program  FILLIN 

2)  Subroutine  SQUARE 

3)  Subroutine  PARAB 

4)  Subroutine  LINFIT 

In  addition,  FORTRAN  library  routines  EOF  (end  of  file)  and  EXIT  are 
called.  FORTRAN  listings  of  these  four  routines  comprising  computer 
program  FILLIN  are  presented  in  Tables  A-4  through  A-7. 

The  input  data  instructions  showing  card  formats  for  computer 
program  FILLIN  are  presented  in  Table  A-l.  A  listing  of  a  sample  data 
deck  is  presented  in  Table  A-15.  Data  output  consists  of  a  listing  of 
the  input  data  and  the  interpolated  experimental  data  (mode  shape 
deflections  and  slopes)  computed  at  all  modul  analysis  stations.  It  is 
suggested  that  the  results  obtained  from  computer  program  FILLIN  be 
checked  before  using  the  punched  output  as  input  to  program  JOINTS. 

PROGRAM  JOINTS 

A  simplified  flow  diagram  of  computer  program  JOINTS  is  presented 
in  Table  A-2.  The  procedure  for  joint  compliance  extraction  is  described 
as  follows: 

1)  A  starting  value  of  joint  compliance  is  assumed  for  each 
joint  at  which  the  compliance  is  unknown  (Initially  from  the 
input  data). 

2)  Modes  and  the  resulting  cost  function  and  first  order  grad¬ 
ients  are  computed  for  this  initial  configuration. 

3)  Each  unknown  joint  compliance  is  varied  independently  from 
the  trial  configuration. 

4)  Modes  and  the  resulting  cost  function  and  first  order  grad¬ 
ients  are  computed  for  each  of  these  configurations 
obtained  in  Step  3. 

5)  Second  order  gradients  are  computed  from  the  finite  differences 
of  the  results  obtained  in  Step  4. 
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6)  A  new  trial  set  of  joint  compliances  is  calculated  using  the 
first  and  second  order  gradients  terms. 

7)  If  the  trial  set  of  compliances  has  converged  within  a 
specified  tolerance,  the  analysis  stops.  Otherwise  Step  2  i3 
reentered  and  the  analyses  continues. 

These  seven  steps  comprise  a  cycle  of  iterations  (a  confi juration  for 
each  of  the  unknown  springs  plus  the  nominal  configuration).  A  detailed 
description  of  the  computational  procedure  for  first  and  second  order 
gradients  and  t  ,e  new  trial  spring  rates  is  presented  in  Section  4. 

A  brief  description  of  the  mathematical  model  of  a  missile  is 
presented  here  to  aid  in  understanding  the  input  data  to  program  JOINTS. 
A  missile  is  modeled  using  a  lumped  parameter  representation.  A  typical 
model  is  shown  below. 
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Appendage  attachment  angles  are  defined  by  the  following  diagram. 
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If  this  Is  the  top  view,  the  marked  End  view  of  main  beam  look- 

angle  Is  .  If  this  is  the  side  ing  aft. 

view,  the  marked  angle  Is  /6  . 

The  following  five  types  of  stations  are  available  for  modeling  • 
missile  system: 

1)  mass 

2)  spring 

3)  appendage  attachment 

4)  forward  redundant  appendage  attachment 

5)  aft  redundant  appendage  attachment 

When  modeling  a  system  for  Input  to  the  computer,  each  station  input  can 

perform  only  one  function,  that  is,  a  mass  station  cannot  have  a  spring 

associated  with  it  or  be  an  appendage  attachment  station. 

The  main  beam  or  zero  order  appendage  must  be  input  first.  The 
first  station  on  the  main  beam  must  be  labeled  one.  After  that,  any 
other  positive  integer  may  be  used  as  a  station  identification  number. 

As  a  general  practice,  station  identification  numbers  should  be  unique 
since  appendage  attachment  designations  are  made  using  these  identifica¬ 
tion  numbers.  Simple  appendages  are  entered  next  starting  from  their 
free  end.  Redundant  appendages  are  entered  last  starting  from  their 
forward  attachment  end.  Within  the  main  beam  or  any  appendages,  station 
location  values  must  be  entered  in  increasing  order  (consecutive  stations 
may  have  equal  station  locations).  Redundant  appendages  must  lie  along 
the  main  beam  and  have  the  same  type  of  motion  (bending,  torsion  or 
longitudinal)  as  the  main  beam.  Redundant  appendages  may  not  overlap  but 
simple  appendages  may  be  attached  to  redundant  appendages. 
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Complications  arise  due  to  the  manner  in  which  the  Myklestad 
subroutine  in  Computer  Program  JOINTS  functions.  The  number  of  stations 
in  the  actual  mathematical  model  of  a  missile  (input  stations)  is  added 
to  by  the  Myklestad  subroutine  for  the  following  reasons: 

1)  A  Joint  is  represented  by  a  single  input  station.  However, 
for  computations,  a  second  station  (at  the  same  location)  is 
needed  to  define  the  displacement  and  slope  discontinuities 
at  the  joint. 

2)  At  appendage  attachment  stations,  an  additional  station  is 
added  (at  the  same  location)  to  show  the  shear  and  moment 
discontinuities  at  the  attachment  station. 

3)  For  each  appendage  and  for  the  main  beam,  an  additional 
station  is  added  at  the  end  of  each  beam  system  (at  the  same 
location  as  the  last  station)  to  allow  for  imposition  of  the 
boundary  conditions. 

Computer  Program  JOINTS  is  composed  of  the  following  routines. 

1)  Program  JOINTS 

2)  Subroutine  STEEL' 

3)  Subroutine  ALTER 

4)  Subroutine  RENORM 

5)  Subroutine  MYKL 

6)  Subroutine  MEMSET 

7)  Subroutine  MATNF5 

In  addition,  FORTRAN  library  routines  EOF  (end  of  file),  EXIT,  SQRT, 

ABS,  LABS,  LOCF  (storage  address  of  variable  in  machine),  SIN  and  COS 
are  called.  FORTRAN  listings  of  these  seven  routines  comprising  com¬ 
puter  program  JOINTS  are  presented  in  Tables  A-8  through  A-14. 

Computer  program  JOINTS  and  FILLIN  have  the  following  slae 
limitations:, 

1)  A  maximum  of  100  theoretical  missile  stations 

2)  A  maximum  of  10  experimental  and  theoretical  modes 

3)  A  maximum  of  10  redundant  appendages 
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The  Input  data  instructions  showing  card  formats  for  computer 
program  JOINTS  are  presented  in  Table  A-3.  A  FORTRAN  listing  of  the 
program  and  its  subroutines  is  presented  in  Table  A-8  thru  A-14.  A 
listing  of  a  sample  data  deck  is  presented  in  Table  A-16. 

Data  output  from  the  program  consists  of  a  listing  of  the  input 
data,  the  input  configuration  for  each  iteration,  a  comparison  of 
experimental  and  theoretical  modes  (deflections  and  slopes)  and  frequen¬ 
cies  and  cost  function  data  for  each  iteration. 

SAMPLE  APPLICATION 

A  sample  application  is  included  to  assist  the  user  in  checkout 
of  the  codes.  Assume  three  experimental  modes  for  a  missile  have  been 
measured  in  the  laboratory.  A  59  station  mathematical  model  has  been 
developed,  which  includes  two  simple  appendages  and  one  redundant 
appendage.  Three  theoretical  modes  are  to  be  computed  and  four  joint 
compliances  are  to  be  extracted  from  the  measured  data  using  computer 
program  JOINTS. 

Firs  ',  computer  program  FII.LIN  is  run  to  determine  the  experi¬ 
mental  mode  shape  deflections  and  slopes  at  the  modal  analysis  stations. 
The  data  deck  listing  for  computer  program  FILLIN  is  presented  in 
Table  A-15. 

With  the  experimental  mode  shape  deflections  and  slopes  defined 
at  the  desired  stations,  computer  program  JOINTS  is  then  run.  The  data 
deck  listing  for  computer  program  JOINTS  is  presented  in  Table  A-16. 

The  entire  output  listing  from  the  computer  program  is  not  presented 
because  of  the  large  quantity  of  output.  Key  output  data  are  given  in 
Table  A-17.  Certain  of  the  results  are  plotted  in  Figure  A-l.  Other 
application  examples  are  presented  in  Section  4  of  this  report. 


106 


81  P  11 


*  i'i  1  - 

’  '  -  T  t 

•  •  U,t  *  -  ;  r 

’\zi\j'  !  ’  ? 

"  •'  A!  o:  7~  T  ; 

'  7  hr  u~  t  - ; 

■  •  ;  v  •£• 

■  1  .  't  v  * 

•  ’  '_Hl  ’  $’  * 

.  ;  7  •  w  v  ■ 

:  :  i  *:  - !.: 

:  h< 

;  •  7  tx  x  * 

r”_,"cj:  V  oT"  "r_ 
- 

:  J’COllT 
_ .x  xx  ;.. 

4-  4—  Y  v _  U-,- 

. <!«♦,.  , 

xb 

<0!  i  Vj 

;_c|r.x: 

-  \  Kj  n;  <j  ♦ 
bk  vj  vT  vf 

V  v  y  Y" 

vxv  r{ 

:a  jbie: 

k  i,  a _ 

i,  Hi;  N:  I ^  Q; 

N  CD,  t»i  y 

V>  t  >  ft  ! 

;;  x  T<sr>r 

<j ,  <!  k1  tyi  c! 
Y  <1  ?K!  kt- 

.;  I  k,  i *  iT 

Sh-S 

5,  k-|  .  T-H/,1; 

i  I  VII  VJJ  v’ 

y!  r  K:  *>' 


'  .<,-V- 

Y  <);  ? 

Qi  '  ^ 

ki  0. 

*i  S.i 

u  101  i 

K  b]  5 

N  VJ  * 

i-  3  s 

Hi;  k 
o;  i  i 
T  HI)  . 
.  i  V>. 

Y  kl  i 


'Aib  ’  Y  1  W 

-:^r  •  y  •  / 

]  kf  k‘  k-  ffi 

'^‘Vf  i'3r 

1  V  Y  T"  ]  ol 

;h:  u!  — ^"lyj " 
’  ?  t  V7 ' 

*  q;  k  v  :  ^ 

;  vTt - -r& 

z^v:xzZw:. 

.  .k  'i:  _ jO^ 

.;  _W_^  k 

:  cy.^  II 

i&krXc- 

T  ~  ft  1 '  tvi”  7  ’  V 


f~-  OO  C7S  rs 
Os,  fs.  'S.  r^<  ^ 

-iirFRg 

.riJtl’prni 


■T  “t  -  +  - 


«Q  \X '  X  ^ 

.4-  IlA-.  ,  v.  u  . 

i  tJ'CT'EV 
.  xtx  >. , : 
t^r^k* 

i  t  Sdj '^.;K  y 

f-^i-Sr^Yl- 

■;  V;  :  q  t 
•  •-  >;  y  -  <v' 

H  ? 

?  -■  |  } 

!  ?!  ' 


::_.:._:nil:.:z| 

.  .  :  k  $ 

_ mzitxs 

_ _ _k._i__ 

:  :  :  .;v:  "iJ: 

j:  *  -  -__ 

-  VT  V) 

r;  :::;r::x::zs 

-.::::::r-ra 

^  Hi 

~k — — p;~rk 
XT  >  V) 

ZX  .L.llJSlXi 

- “Xri.X-i 

i_l.ja._V6_. 

In  f  1!  q 

. V  f  T 

.  9 . ..|..CQ 

,SU]_aXOtl 
ij  i.;.:sudtv 


f^4 

Q  in  >1 

N  ^  X| 

!  i 

i  v  ?' 

’f 

?|5! 


.  W---WXx:xmz:. 

;4 . 

;  o  o’  tc;  <Tqi  It  | 
!:.v— ;i};t;:|:o:x 
i  tct  y  y  ^  s 


P  _T.il  si  .a.  <* 

*i4  Wi  V5;  <j;  X  Y 

1 ,  Pi  T  sj  \l  i 

It  I'i,  '-I  VJ  ii  J 

;p?kiu;:i 
1!  V-'*v^ 

!  n  I  i  I  iii  | !  k 

|k[  r  -  t  ■  t~5 

•  i  oj  w;  Y  pT 


ioj  i  t  M  '  k 

1  1  :fl 


7i»Su.jsr 


^c.ouy  £>/  “tG&p/x*  <LOA**><srKA.  **eo<s&9*i  %/o/Asrs 


no 


I  £11 

loi 


MSB 


11:11 

:e: 


IESI 


Isssss! 


IK1I 


9MDI 

■■»uSsbihI| 

BSSEEISSSui 

IKWlHU 


i*a| 


ini 


IBM 


1131 


I  Ell 


Ell 

Ell 

Bl 

Ell 

Ell 

m 

Ell 

01 

FI  I 

Ell 


U»]| 


11*11 


IK1I 


khotBSII 

IK1KW1A3I 


imri 


IE3I 


01 


IK  I 
|KDI 
RK)I 

|K« 

lEuni 
OKI  1 
I  OKI  I 


iSSBS&MwBS 
IBKE! 

!■■■ 


■■  m  ia  in 

imbbss 

niBnnn 


LIKM'BHI 


EE1I 


i  mu  i  1  if  iii 


BBS^HHBBBI 

BEIIBWH 

FIBiKBIBjM  Jl 

Bnannum 


lUKLigilE 
ipKCHIKira 

KkSsBBbHI 

SnEiEiHnBBnBBB 
VBligHUBHUUHl 
MKEMK«BW«KZBi! 
>D»QBUE1BUEHBI 
■VlUBiEBBrKia 


lEElCj 

SBSBBSBSSBEBBKBfcjBBBBBiiB 

M— — MM — b  !■  ii  !■■  ib  ■■  w  ■ 

BbebEmBb 

■■■■■EBB 

BK  KKlBSKlKlfl 
BBk  BiKIKSKnEKl 
Ieei;  ■ekBbjEk  i 

mmi 


mr\ 


i'll 


OKH  ■BHBSIfll  VS1H  EKB.1KMI 
BEJ  MBIlBliliBBii 
OBB  BnUKtlBIBIBiBBKiKMMi 

BBaBRBBBBBBB 
0BH  BIBK&MSBgHK  ■ 

BK  BMMBBbUMMK 

obs  ■  bikwbm  mmmmm 

OKI  BIBMHBBKiailRl^l 


HBCEBDI 
lEtftlBB 


ofla 


HI  WIBMBJB^H 
mi  BIKUK  WKIKOBKi 
\m  ■BUKIBiBJBiBIM 

tMm  ■tCHMBHWBWBB 
I  mm  Mill BBKjBBtxf 

Hi  BnSiSnBihrK 
pDKSHlSltf  M3BrafiB 
PKBHKIBaBlEWhMHKgl 
■|nPB3B3liiB>ltiiM3PK)l 


Kl 


R  ~  R  n  s  «  «  R 


114 


StJ  3-*^  /  f  7-jSTO  .  K/V77 v 


o  o  o  o  o 


Table  A-4 

FORTRAN  Listing  of  Program  FILLIN 


PROGRAM  FILIIN(INPUT=65,0UTPUT=65,TAP£  6t =INPUT, PUNCH =65)  FIL  10 

DIMENSION  XSTA<230> ,XESTA<200) ,£PH I < 200 , 10) ♦ EPHIP ( 2QQ , 10 ) , PHI (200 ,  FIL  20 

110) ,NAENO(ll) , NAAS(20Q)  ,ITME (5 , 201) , OAAT (7,2  01) .TITLE (6) , NAONE (11)  FIL  30 

2,LAatL(200),ITYF£(2C0),PSAVE<lC>  ,NAS(200),  FIL  40 

33he.L  (5)  ,LAONE(  11)  ,LAEND(11)  FIL  50 

COMMON  Y(4),PH<4)  A  (3) ,  X,  P  ,PP,  0  ,  YSu<  4)  FIL  60 

It  REAGcO, TITLE  FIL  70 

c  C  F ORMAT  (8 A 10)  FIL  80 

IF(LOF (60) )3C, 4C  FIL  90 

3  C  CALL  EXIT  FIL  100 

4  (i  PRINT  5C,  TITLE  FIL  110 

5 C  FO\MAT ( 1H1 ,1 5X  ,  B  A10 )  FIL  120 

C  FIL  130 

C  READ  SEAM  DESCRIPTION  FIL  140 

C  FIL  15C 

NX  =  0  FIL  160 

fat  NX=NXM  FIL  17C 

REAG70  ,<ITME  <LL,NX)  ,LL=1,5),  <OAAT(KK,NX)  ,KK=1,7)  FIL  180 

7 C  POaMAT (214,312 ,2X ,7£8.0)  FIL  190 

ir<ITME<l,NX).Nt.O)GO  TO  60  FIL  200 

<EAO  CONTROL  CARO  FIL  210 

FIL  220 


REAC80,NSTA,NtSTA,NEXP 
ST  F CRMAT (315) 

PRINT  90,NST A, NESTA 

6 C  F ORMAT (///23X, ♦NUMBER  OF  MYKLESTAO  S TATIONS** , 15 , 10X, ^NUMBER  OF  EX 
1PEKIMENTAL  P0INT$=*  -15) 

N  CARC=  NX 


FIL  230 
FIL  240 


PRINT  SEAM  DESCRIPTION 


PRINT  100 

ICC  FORMAT  (/// ,2QX ,*MYKL£STAO  INPUT*  »/// ) 

DO  110  1=1 »NCARG 

lit  PRINT  120,1, (ITME(J,I), J=i,5> , <DAAT< JJ,I) ,JJ=1,7) 
12 1  FORMAT  (614,  4X  ,7E13,5) 


FIL  34C 
FIL  350 


READ  IN  ANO  PRINT  MEASUREMENT  STATIONS  AND  APPENDAGE  INDICATORS 


R£A0130,(NAAS< I) ,XESTA(I) ,1=1, NESTA) 

13  C  FORMAT ( (4 ( *i 0, E10 .0)) ) 

PRINT  140  ,  <I,N4AS<I), XESTA(I), 1  =  1,  NESTA) 

1 4  C  FORMAT <1H1,10X , ’MODAL  MEASUREMENT  STATIONS  ANO  APPENOAGE  ATTACHMEN 

IT  STATION  NJMBERS*,/(20X, 2110, 10X,ll 3,5) ) 

C  =  1 

_  AuNt  (  1)  =  1 
JO  150  1=2, NESTA 

IF(NAASd)  .ECU  NAAS(I-l)  )GO  TO  150 

w At  NU( L) =1-1 

L=L*1 
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Table  A-4 
(Cont 'd. ) 


I 


J 


i.  A0N£( L) =1 
15 C  CONTINUE 

uA£NG<L)*N£STA 

R  EAO  AND  PRINT  EXPERIMENTAL  POOE  SHAPES  OR  SLOPES 
PRINT  160 

16C  FORHAT(1H1,20X ,*EXPERIH£NTAL  MOOE  SHAPES*,//) 

MST  A=NEST  A 

I F( NEXP.GT  *5 )M  STA=2*NESTA 

JO  160  IT  =  1, MS TA 

REAO190  ,  J  ,  K,  <SH£L  (L),L  =  1,5) 

PRINT  200  ,J,  NAAS l IT) »K, (SHEL (L) ,L=1, 5) 

JO  170  L=1 ,5 

170  PHI  (J,  (M-L-l))  =SHEL(L> 

16  C  CONTINUE 

190  FORMAT  (6X,2I3,  5E12*  5) 

2CC  FORMAT  (6X  ,  316,  5X,5E12. 5) 

JEFINE  MYKLEST  AD  OUTPUT  STATIONS 
OEFINE  APPENOAGE  ENO  POINTS 

INITIALIZE  N AT  =NUM6£R  OF  APPENDAGES,  NA= APPEND AGE  NUMBER, 
NAONE(NA) , NA EN O (N A) =N UMBERS  OF  FIRST  AND  LAST  STATIONS, 

DEFINE  STATION  TY PE , ITYPE ( J) =0 ( NO  JOINT) ,1 (LEFT  SIDE  ROTATIONAL 
SPRING),  2  (LEFT  SIDE  SHEAR  SPRING),  3  (LEFT  SIDE  ROTATIONAL  AND 
SHEAR  SPRINGS),  4  (RIGHT  SIDE  ROTATIONAL  SPRING),  5  RIGHT  SIDE 
SHEAR  SPRING),  6  (RIGHT  SIOE  ROTATIONAL  AND  SHEAR  oPRINGS) 

N  AT  *NA  =NAONE (1 ) =1 
N  N=  1 
K  =  0 

JO  270  J=1  ,N ST  A 
XSTA(J)=DAAT (3 .NN) 

L  A6EL  (  J)  SITME (  1  ,NN) 

NAS(J)  =ITME(2,NN) 

I  TY  P£(  J)  =  0 
I  F(K»NE.0) GJ  TO  21G 
IF(ITME(4,NN).EQ.G)G0  TO  230 
IF(ITME(4,NN).Nt.l)G0  TO  260 
IF(OAAT(6,NN).NE.  0)  ITYPE (J)  =  l 
IF(OAAT(5,NN).NE.0)ITYPE( J)=2 

IF(DAAT(5,NN),NE.0, ANO, DA AT( 6, NN) .NE, 0)lTYPE (J)=3 
GO  TO  260 
21 t  K=G 

IF(ITME(4,NN).NE.1)G0  TO  220 
IF(OAAT(6,NN).NE,0)ITYPE( J)*4 
IF(OAAT(5,NN).Nt.O)ITYPE( J)s5 

IF(OAAT(5,NN)-NE.O.ANO.OAAT(6,NH) . NE. 0) ITYPE ( J) =6 

GO  TO  230 
22 C  NN= 1+NN 


FIL  510  j 
FIL  520  j 
FIL  530  1 

FIL  540  j 
FIL  550  | 

FIL  560 
FIL  570 
FIL  580 
FIL  590 
FIL  600 
FIL  610 
FIL  620 
FIL  630 
FIL  640 
FIL  650 
FIL  660 
FIL  67C 
FIL  680 
FIL  690 
FIL  700 
FIL  710 
FIL  720 
FIL  730 
FIL  740 
FIL  750 
FIL  760 
FIL  770 
FIL  780 
FIL  790 
FIL  800 
FIL  810 
FIL  820 
FIL  830 
FIL  640 
FIL  850 
FIL  860 
FIL  870 
FIL  SCO 
FIL  890 
FIL  900 
FIL  910 
FIL  920 
FIL  930 
FIL  940 
FIL  950 
FIL  960 
FIL  970 
FIL  980 
FIL  990 
FIL1000 


f 
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23  C 


24  f 


25  C 
2b  C 
27  t 


Table  A-4 
(Cont 1 d, ) 


30  TO  270 

IFtITME(i,NNU>  .EQ.QI60  TO  240 
IF(ITMG<2,NN).Nl.ITME<2,NNfl)>C0  TO  240 
N  '<=  ltNN 
<  =  C 

.0  TO  270 
NAtNC(NA)  =  1*J 

IF(ITHE(1,NN+1)  .  EQ.  0)  GO  TO  250 
MA=  IfNA 
M  A0N€  (  NA)  =  2*  J 
30  TO  260 
N  AT  =  NA 
K  =  1 

CONTINUE 


NAEND(NAT) 

=N 

ST 

PRINT  280, 

NA 

T 

260 

FORMAT (//10X 

,♦ 

PRINT  290 

29  C 

FORMAT  (//l 

OX 

*  A 

PRINT  300, 

(J 

»N 

30  f 

FORMAT (20X 

,1 

3, 

PRINT  310 

31  C 

FORMAT  (1H1 

.T 

10 

1PPLNUAGE  L 

A3  EL 

PRINT  320  , 

(J 

,x 

32  C 

FORMAT (I2C 

,1 

5X 

OF  APPENDAGES  INCLUDING  MAIN  0EAM=*,I3) 

,t  NUN8ER*  »5X*FIRST  STAT ION* , 5X*£ NC  STATION*) 

> ,NAENG( J)  , J  =  1,NAT) 

1 12X  »  1 3) 

)N  NUMBER¥T39*STATIQN*T50*LABlL*T7  0*TYPE*T9Q*A 
■LABEL (J) , ITYPE(J) ,NAS(J) ,J=1,NSTA) 


33  G 


34  f 


DO  840  L=1,NAT 
11=  NAQNt  (  l.  ) 

IFN  =  nAENO(L) 

Jl=LA0NE(L) 

J FN±LAENG  ( L) 

JN=JFN-JH-1 
JO  830  1=11, IFN 
X=XST4(I) 

IT  =  ITYPG(I)H 

30  TO  <330,450 ,540, 630, 690, 760, 790)IT 
PLAIN  STATION 

IF<  X.LE.XESTAC  Jl«-1)  )GO  TO  390 

IF(X.G£.XESTA< JFN-1>)&0  TO  4C0 

I F ( JN«  GT. 4) 30  TO  360 

I F ( JN, EQ.4)30  TO  410 

JO=JI 

JE= JI+1 

Y  (1) =XESTA<JO) 

Y (2 ) =XEST  A ( J  E) 

J  =  1.0/  (Y(2)-Y( 1) ) 

30  350  M=i,NEXP 
PH(1)=PHI( J0,M) 


FIL1010 
FIL1020 
FIL1030 
FIL1040 
FIL1050 
FIL1060 
FIL107C 
FIL1080 
FIL1090 
FIL1100 
FIL1110 
FIL1120 
FIL1130 
FIL1140 
FIL11 50 
FIL1160 
FIL1170 
FIL1180 
FIL1190 
F IL1200 
FIL1210 
FIL1220 
FIL1230 
FIL1240 
FIL1250 
FIL1260 
FIL1270 
FIL1280 
FIL1290 
FIL1300 
FIL1310 
FIL1320 
FIL1330 
FIL1340 
FIL1350 
FIL1360 
FIU370 
FIL138C 
FIL1390 
FIL140C 
FIL1410 
FIL1420 
FIL1430 
FIL1440 
FIL1450 
FIL1460 
FIL1470 
FIL1480 
FIL1490 
FIL1500 


ws»TC 


KSRpvxnnt*  K^* 


Table  A-4 
(Cont'd. ) 


f>Hl2)  =  PHI(J£,M) 

FIL1510 

CALL  LINFIT 

FIL1520 

£PHI(I,M)=P 

FIL1530 

35  C 

£PnIP(I,M)=Pp 

FIL1540 

50  TO  (530,460,55G,680,700,77Q,820)IT 

FIL1550 

36C 

J J=JI*1 

FIL1560 

Jrt=JFN-2 

FIL1570 

90  370  J=JJ,JM 

FIL1580 

IF(X.GT.X£STA4 J) . ANO.X . LE . XEST A ( J* 1) ) 60  TO  380 

FIL1590 

37  C 

CONTINUE 

FIL1600 

36  0 

JONE=J-l 

FIL1610 

SO  TO  420 

FIL1620 

39  C 

x  ( 1 )  =X EST  A ( J I) 

FIL1630 

X ( 2 ) =XEST  A ( J I* 1) 

FIL1640 

JO=JI 

FIL1650 

J£= JI*1 

FIL1660 

SG  TO  340 

FIL1670 

1*0  0 

X  (1)=X£STA(JFN-1) 

FIL1680 

X  ( 2) =X  EST  A ( JFh ) 

FIL1690 

J  U= JFN-1 

FIL1700 

J  E  =  JFN 

FIL1710 

50  TO  343 

FIL1720 

4lC 

J  ONE  =  J I 

FIL1730 

4 2  C 

CONTINUE 

FIL1740 

i)0  440  M=1,NEXP 

FIL1750 

CO  430  K=  1 , 4 

FIL1760 

X  (K)=X£STA<K  VJONE-1) 

FIL1770 

43  C 

»h(K)=PHI(Kf  JONE-l.M) 

FIL1780 

CALL  SQUARE 

FIL1790 

CALL  PARAB 

FIL1800 

£PNl(i,M)=P 

FIL1810 

44  C 

£PhIP(I,N)-PP 

FIL1820 

SO  TO  (830  ,460 ,550,680, 700,770, 020 > I T 

FIL1830 

450 

<SAV£=1 

FIL1840 

SO  TO  330 

FIL1850 

460 

KSAVE=KSAYE*1 

FIL1860 

I  F  ( KSA  v/ E •  EG*  3)  GO  TO  520 

FIL1870 

00  470  M=1,NEXP 

FIL1880 

47C 

?SAVE(M)=EP>(I4I,N) 

FIL1890 

DO  480  J*JIfJFN 

FIL1900 

JJ=J 

FIL1910 

I  F(  X.EQ.  XEST  A(  J) )  GO  TO  500 

FIL1920 

IF(X.LT.XEST A( J)) GO  TO  490 

FIL1930 

46  0 

CONTINUE 

FIL1940 

SO  TO  510 

FIL1950 

490 

JFN-JJ-1 

FIL1960 

SO  TO  510 

FIL1970 

50  0 

JFNSJJ 

FIL1980 

510 

JL-JJ” Jl 

rI L1990 

IF(JL.GT.3)  JI=JU-3 

FIL2000 

/’ 
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Table  A-4 
(Cont  *d. ) 


C 

C 

c 


JN=JFN-JI*1 

FIL2010 

SO  TO  330 

FIL2020 

52  C 

00  530  M=1  jWEXF 

FIL2030 

530 

£  PH  I  (I  »M)  =PS  AV£  CM) 

FIL2040 

JI=LA0N£(L) 

FIL2050 

JFN=LAEND(L) 

FIL2060 

J  N= JFN-Jl+i 

FIL20  70 

SO  TO  830 

FIL2080 

540 

<SAVE=1 

FIL2090 

SO  TO  630 

FIL2100 

55  C 

KSAY£=1  +  KSAVE 

FIL2110 

IFCKSAVE.EQ.3)  GO  TO  610 

FIL2120 

00  560  M=1,NEXP 

FIL2130 

56  o 

PSAWE(M)  =  £PHIP(I,M) 

FIL2140 

00  570  J=JI,JFN 

FIL2150 

J  J  =  J 

FIL2160 

IFIX.EQ.XEST A( J))G0  TO 

590 

FIL2170 

IF(X.LT.XESTA( JHGO  TO 

580 

FIL2180 

57  C 

CONTINUE 

FIL219C 

GO  TO  600 

FIL2200 

58C 

J  FN  = J J-l 

FIL2210 

SO  TO  600 

FIL2220 

59  C 

JFN-JJ 

FIL2230 

63  G 

JL=JJ-JI 

FIL2240 

IF(JL.GT»3)JI=JJ-3 

FIL2250 

JN=JFN-JIU 

FIL2260 

SO  TO  330 

FIL2270 

61  C 

00  620  M=1  i'JEXP 

FIL2280 

62  0 

i PhIP( I,H) =PSA  y£ ( M) 

FIL2290 

Jl  =  LAONEU) 

FIL2300 

J  FN-LAENO  (U 

FIL2310 

JN=JFN*1-JI 

9 

FIL2320 

GO  TO  830 

FIL2330 

FIL2340 

STATION  TO  LEFT  OF  A  ROTATIONAL  AN0  A  SHEAR  SPRING 

FIL2350 

FIL2360 

630 

0  0  640  Js  JI,  JFN 

FIL2370 

JJ=J 

FIL2380 

I F( X .EQtXEST  AC  J) ) GO  TO 

660 

FIL2390 

TFCX.LT.XESTAC J))GO  TO 

650 

FIL2400 

64  C 

CONTINUE 

FIL2410 

SO  TO  670 

FIL2420 

650 

J  FN  =  JJ-1 

FIL2430 

SO  TO  670 

FIL2440 

66  C 

JFN*JJ 

FIL2450 

670 

JL= JJ- JI 

FIL2460 

IF<  JL.6T.3)  Jl=  JJ-3 

FIL2470 

J  N= JFN«JI r 1 

FIL248Q 

SO  TO  330 

FIL2490 

68  0 

JFN=LA£ND(U 

FIL2500 

c:  c>  o  o  o  c. 
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(Cont 'd. ) 


JI=LA0NE(U 
JN=JFN*1-JI 
GO  TO  830 
r 

r  STATION  TO  SIGHT  OF  A  ROTATIONAL  SPRING 
C 

6°0  KSAYE=i 
GO  TO  330 
7C0  KSAVE=1*KSA¥E 

IFCKSAVE.EQ.3IGO  TO  740 
00  710  M=1,NEXP 
710  °S  Atf  E  C  N) =EPHICI,M) 

DO  72G  J=JI» JFN 
JJ  =  J 

TF(X.LE.XESTA< J))GO  TO  730 
720  CONTINUE 
GO  TO  830 
730  JI=JJ 

IF(JI*3.LE.  JFN)  JFN=JU3 
JN=JFN-JI*1 
GO  TO  330 

740  DO  750  H=1,NEXP 
750  EPHI <I,N)=PSAVE(H) 

JI =L AONE  <L> 

JFN=L AENO (L) 

JN=JFN-JI+1 
GO  TO  830 

STATION  TO  RIGHT  OF  A  SHEAR  SPRING 

760  KSAtf£=l 
GO  TO  790 

770  OO  780  H=1,NEXP 

EPH I P ( I »  M) =0.5* (EPHIP { I-l»N)*EPHIP(IfM)) 

780  FPMIP(I-1,M)  =EPHIP(I,HJ 

GO  TO  830 

STATION  TO  THE  RIGHT  OF  A  ROTATIONAL  SPRING  ANO  A  SMEAR  SPRING 

790  OO  800  J  =  JI *  JFN 
JJ  =  J 

IF(X.LE.XESTA< J) )GO  TO  810 
800  CONTINUE 
GO  TO  »30 
810  JI=JJ 

IF(JIH.LE.JFN)  JFN  =  JI+3 
JN=JFN- JI* 1 
GO  TO  330 
820  JFN=LAEN0(U 
JI=L  AONE  (U 


FIL2510 
FIL2520 
FIL2530 
FIL2540 
FIL2550 
FIL2560 
FIL2570 
FIL2580 
FIL2590 
FIL2600 
FIL2610 
FIL2620 
FIL2630 
FIL2640 
FIL2650 
FIL2660 
FIL2670 
FIL2680 
FIL2690 
FIL2700 
FIL  2710 
FIL2720 
FIL2730 
FIL2740 
FIL2750 
FIL2760 
FIL2770 
FIL  2780 
FIL279C 
FIL2800 
FIL2810 
FIL 28 20 
FIL2830 
FIL2840 
FIL285C 
FIL2860 
FIL2870 
FIL2680 
FIL2890 
FIL2900 
FIL2910 
FIL2920 
FIL2930 
FIL2940 
FIL2950 
FIL2960 
FIL2970 
FIL2980 
FIL2990 
FIL3000 
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83  C 
84G 


85  C 


JN= JFN+l-JI  FIL3010 

IF(IT.£Q.6>S0  TO  770  FIL3020 

CONTINUE  FIL3030 

CONTINUE  FIL3040 

00  880  1=1 ,N£XP  FIL3050 

PRINT  650,1  FIL3060 

FORMAT  <1H1,20X*COMPlET£  EXPERIMENTAL  MC0£*,I4,//,Tl5, *STATI0N  NUMB  FIL3Q70 

1£R* ,T30,*STATION  LABEL*,  T 45, * APPENDAGE  LABEL* ,T70 ,*STATION  TYPE*,T  FIL3080 

29  5, *ST  ATION* ,T96 , *0ISPL ACEMENT* , T118 ,* SLOPE* ,//)  FIL3090 

DO  860  J=1 , NST A  FIL3100 


86  C  ‘•’RINT  870  ,  J,  LA  BEL  0J)  ,  NAS  ( J)  ,  IT  YPE  (  J) 
87 1  F ORNAT (20 X ,1 5,  110  ,2120 , 5X , 3E 1 *.5) 

88 C  CONTINUE 
UP=1 
890  I T=  1 

NC=NEXP 

IF(N£XP.GT,5)NE=5 
93  C  OO  920  J=1  ,NST  A 

PUNCH  910,  J,  IT  ,  <EPHI(J,L)  ,L=IT,NE) 
910  FORMAT  (6X  ,  21  3,  5E12»  5) 

92 C  CONTINUE 

I  F{  NEXP.GT  »NE)  GO  TO  930 
SO  TO  940 
930  I T=6 

NE  =  NE>P 
SC  TO  900 
340  NP=NPH 

IF(NP.EG.3)SO  TO  960 
OO  95i  L=1,NEXP 
DC  950  J= 1 ,NST  A 
950  EPHI(J,L)  =EPHIP(J,L) 

SO  TO  890 
9b C  CONTINUE 
GO  TO  1G 
END 


XSTA ( J) ,EPHI(J,I) ,EPHIP{J,I)  FIL3110 

FIL312C 

FIL3130 

FIL3140 

FIL3150 

FIL3160 

FIL3170 

FIL3180 

FIL3190 

FIL3200 

FIL3210 

FIL3220 

FIL3230 

FIL3240 

FIL3250 

FIL3260 

FIL3270 

FIL3280 

FIL3290 

FIL3300 

FIL3310 

FIL3320 

FIL3330 

FIL3340 

FIL3350 
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Table  A-5 

FORTRAN  Listing  of  Subroutine  SQUARE 


SUBROUTINE  SOU  ARE 

COMMON  Y(4),PH<4)  ,A(J)  ,X,P,PP,C,YSU< 4) 

DIMENSION  Z(  4)  , F(  4) 
ao  10  i=i,4 
Z  iI>=Y(I> 

F (I ) =PH  < I ) 

Y,(I)=0.0 
r.SQ(i)=o.o 
1C  PN(I)=0.0 
00  20  1=1,4 
PH  ( 1)  =PH(  1)  FI  I) 

Y<i>=m>  *u  u 
YSQ(l)=YSQ<mZ(I)4ZII) 

=»H<2)  =  PH(2>*F<I)4Z<I) 

Y  SQ  (  2)  =YSQ(2»*Z(I)*Z(I)*Z(I) 

PH(3)=Ph(3)fFt 1)*Z(I)*Z<I) 

2 0  YSQ<3)  =YSQ(3)*Z(I)444 
Ph(i)  =  Q.254:»H<l) 

Y (1) =0  »254Y( 1) 

Y  SQ  { 1)  =Q.254YSQ(1) 

Y  C2)=YSQ(1)/Y( 1) 
aH(2)  =  0.25*:>Ht2)/Yii) 

Y  SQ ( 2) =0 •  ?54  YS  Q  (2 )/ Y{1) 

PH(3)  =  0.25*PHC3J/YSQC1» 

Y  (3)  =0.254Y(  3)  /YSQ(l) 

Y SQ  ( 3)  =  0.254  YSQ(3)/YSQ<1) 

0=1.0/ <Y{2)4Y5U(3)*Y<1>4YSQ<2) +  Y (3)* YSQ (1) -Y ( 2>4YSG(1) -Y ( 1)* YSQt 3) 
1- V 1  3) 4 YSQ ( 2)  ) 

i  NO 


SQU  10 
SQU  20 
SQU  30 
SQU  40 
SQU  SO 
SQU  60 
SQU  70 
SQU  60 
SQU  DO 
SQU  100 
SQU  110 
SQU  120 
SQU  130 
SQU  140 
SQU  150 
SQU  160 
SQU  170 
SQU  160 
SQU  190 
SQU  200 
SQU  210 
SQU  220 
SQU  230 
SQU  240 
SQU  250 
SQU  260 
SQU  270 
SQU  280 
SQU  290 


'•si 
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Table  A-6 

FORTRAN  Listing  of  Subroutine  PARAB 


SUBROUTINE  PARAB 

CON  NON  Y  ( 4)  *  PH  C  4)  »A(3*tX,P,PP,0,YSU<4) 

A  <1)=0MPH<1>*  CY(2>  »YSaf  3>  -Y  (3>*YSQ<  2)  >*Ph»'2)  ♦ 

11 Y(3)*YSQ(1)  -Y (1) ♦YSQ<  3) )  -PH ( 3 ) * ( Y (2 ) ♦ YSG ( 1) - Y ( 1) * YSQ ( 2) ) ) 

A(2)=DMPN<l>MYSQ<2)-Y3Q<3n*PH<2>MYSQl3>-YSQ(i>)*PHC3>MYSQ(l>- 

l  Y.SG  (2)  ) ) 

A(3)=0*(PH(1}*  (Y(3)-Y(2))*Prt(2)*(Y(l)-Y(3))  *-PH  (3)*lY(2)-Ytl))> 
P=Mi»  ♦K2)*XtA(3)*X»X 
0P=A(2)*2*A<  3)  *X 


PAR  10 
PAR  20 
PAR  30 
PAR  40 
PAR  50 
PAR  60 
PAR  70 
PAR  ao 
PAR  90 
PAR  100 


Table  A-7 

FORTRAN  Listing  of  Subroutine  LINFIT 


SUBROUTINE  LINFIT 

LIN 

10 

COMMON  YU),  PH  (4)  ,A  (3)  ,  X ,  P  ,PP,  0 ,  YSQ<  4) 

Lli> 

20 

A  (1 )  =0*  (Y  ( 2)  *PH(i)-Y(l)*PH(2)) 

LIN 

3b 

A  <2>=0MPH<2)-PHiin 

LIN 

40 

P  =  A  (1)  *A(2)*X 

LIN 

50 

PP=A<2) 

LIN 

6C 

END 

LIN 

70 
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Table  A-8 

FORTRAN  Listing  of  Program  JOINTS 


PROGRAM  JOINTS  (INPUT, OUTPUT, TAPE60=INPUT,TAPE6=OUTPUT> 

C  PROGRAM  JOINTS  -  PROBLEM  2049  02/26/71  VARIABLE  OElTAK 

C  WITH  SHEAR  SPRINGS 

C 

PTKENSIOK  MAX3IGN  (1 0)  ,NSMAXPH(10)  ,  NAO»'E  ( 1 0)  ,  N  AENDC1 0) 

DIMENSION  TITLE (8) ,  GM ( 10) ,SHFL (?) , BB (10 , 10) ,CC ( 10, 10) 

OIMENSION  STFREQ(IO) ,XF5TA(1Q0) 

C 

C  STORAGE  COMMON  TO  SUBROUTINE  MYKL 
C 

COMMON  PINK (300) 

COMMON  A(4, 4,101)  ,SAP(4,4),AP(4,4)  »VINV(4,4),ALV(4»4)  ,T( 4,4) , AL 

1VT<4,4> ,TAP(4, 4,100) ,VEC(4,101> ,1  TEH ( f , 1 0 1) , C AT A (8, 10 1) , II ( 300 ) , IR 
2(300  ,0M  (300 )  , EUNC  (300)  ,R(3)  ,KKK(100)  ,MOOE(iOO>  ,  JOINT  ( 10 IX,  AL  (4 , 4) 
3,16(101)  ,  PP.NT  f  4)  ,  HOL  (12) 

COMMON  ICON (10) , ice (10) , PPM (10, 4, 4) ,FQM(10,4,4) ,  VSAVE(4I , ARST  AR 
1(10,6,4) ,  ARF6 (4,4) ,ARPA(4,4) , APR (4, 4) ,CANV(2,2) ,0ENV(2,2 

2) , THMAN (6,6)  , OMAN (6, 6) ,  B INV ( 6 , 6 ) , RMUL (6 , 4 > 

COMMON  14(101) 

COMMON  ITMR (5, 10 1) ,OAAT(7,101> ,IETM(5) ,OTAA(7) 

C 

C  STORAGE  COMMON  TO  SUBROUTINE  STE^P 

C 

COM  MON/ 1  /  MWH,  ISTOP.NSTA, NT, NEXP, STEP, UMAX, TOL, ITER 
COMMON/?/  KKKK, ALPHA, F,PFK(20) ,INTEG(20> 

COMMON/ 3/PWMAT( 10) ,PWMAT  (10) , EOME GS ( 1 0 ) , KVAR C 20) ,SPRINGL (20) ,$PRIN 
1GU ( 2 0) , F PHI (100,10)  ,EPHIP(100,10) ,EFPFO ( 1 0) , TFREO (1 0) 
C0MHCM/4/T0MEGS(l«) ,TCHI (100,10) ,TPHID(100,10) 

C0MM0N/5/JA, J9, JO,FP,  SPFK(IO) , A AC  10, 10) ,ASPPING(2  0> 
C0mmcn/6/NVSPR,SPPING (10) ,SSPRING<10> ,KSTA(10) ,KTYPEC10) ,COMP(lO) 
COMMON/7 /XRAT 10, OLOSPR  (10) 

O0MM0N/6/KNORM ,XSTA (100) 

CALL  MEMSET  ( PINK (1 ) , DT  A A (7) ) 

C 

C  °E AT  ANO  PRINT  TITLE 

C 

1G  REATPO, TITLE 
20  PORMAT(eAlO) 

IF ( EOF (6  0) )  30,40 
30  CALL  EXIT 
40  PRINT  50, TITLE 

50  FORMAT (iHi,20X*EXTRACTI ON  OF  JOINT  COMPLIANCES  FROM  ELASTIC  MODE  T 
1FST  DAT6»//20X,8A10///> 

C 

C  INITIALIZATION  PASS 

C 

ISTOP-O 

TTER=1 

C 


JTS 

10 

JTS 

20 

JTS 

30 

JTS 

40 

JTS 

50 

JTS 

60 

JTS 

70 

JTS 

90 

JTS 

90 

JTS 

100 

JTS 

110 

JTS 

120 

JTS 

130 

JTS 

140 

JTS 

150 

JTS 

160 

JTS 

170 

JTS 

180 

JTS 

190 

JTS 

200 

JTS 

210 

JTS 

220 

JTS 

230 

JTS 

240 

JTS 

250 

JTS 

260 

JTS 

270 

JTS 

280 

JTS 

290 

JTS 

300 

JTS 

310 

JTS 

320 

JTS 

330 

JTS 

340 

JTS 

350 

JTS 

360 

JTS 

370 

JTS 

380 

JTS 

390 

JTS 

400 

JTS 

410 

JTS 

420 

JTS 

430 

JTS 

440 

JTS 

450 

JTS 

460 

JTS 

470 

JTS 

4„0 

JTS 

490 

JTS 

500 
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C 

C 


69 


TO 


REAOING  OPTIONS,  WEIGHTING  MATRICES,  ANO  LIMITS  JTS  510 

JTS  520 

REA060,KNCRM, NT, NEXP, NWT,ITMAX,NVSPR,NSTA,NE$TA, STEP, TOL, CLOSE,  X  JTS  530 

1PATIO  JTS  540 

FORMAT(4I5,4I5,4E10.0)  JTS  550 

IF (KNORM«EQ«C)  KNORH=l  JTS  560 

NOTN=NT  JTS  570 

PRINT  70,  NT, NEXP, ITMAX,NVSPP,NSTA, STEP, CLOSE, NWT,NESTA  JTS  5*0 

FORMAT < //40X, *  NT  =  *,I13,/40X,*  NEXP  =  *,I13,/40X,*  ITMAX  JTS  590 

1=  * , 113 , /40X , *  NVSPR  =  *, 113, /40X ,*  NST A  a  *,I13,/40X,*  STEP  JTS  600 


80 


90 


ICC 

119 

120 
130 

140 


145 

146 
149 
15  0 

160 

170 

180 

190 


20  0 


220 


313) 

JTS  620 

KCL0SE=0 

JTS  630 

IF (CLOSE .EQ • 0 • 0)  KCLOSE=l 

JTS  640 

PRINT  8 0 , T OL 

JTS  650 

FOPWAT(  40X,*  TOL  =  *,E13.5) 

JTS  660 

&EA09O , KCMECK , XMASS 

JTS  67C 

FORMAT(I5,E10.0) 

JTS  680 

IF (KCHECK »NE«  2) GO  TO  110 

JTS  690 

PRINT  100, XMASS 

JTS  700 

FORM AT < //20X*HOOES  WILL  NOT  BE  CMECKET* , //20X ,*XMASS 

=  *,B13.5) 

JTS  710 

GO  TO  130 

JTS  720 

PRINT  120, XMASS 

JTS  730 

FOR*AT(//20X*MODFS  WILL  BE  CHECKED* ,//20X ,*XHASS  =  *, 

E13.5) 

JTS  740 

IF (NWT . FO. 0) GO  TO  145 

JTS  750 

REA0140, (PWMAT ( 7  .1=1, N EXP) 

JTS  760 

FORMAT  ( 8E10 . 0) 

JTS  770 

PEA0140, <FWMAT(I) ,I=1,NEXP) 

JTS  772 

GO  TO  149 

JTS  773 

OO  146  1=1, NEXP 

JTS  775 

PWMAT(I)=FWMAT(I)=1.0 

JTS  778 

PRINT  150 

JTS  780 

FORMAT (//10X,*  RELATIVE  MOOE  SHAPE  WEIGHTING  FACTORS 

*  ) 

JTS  790 

PRINT  160, (PWMAT(I) ,1=1, NEXP) 

JTS  800 

FORMAT ( /  IX, 10E13.5) 

JTS  610 

PRINT  170 

JTS  830 

FORMAT ( //10 X , •  RELATIVE  MODE  FREQUENCY  WEIGHTING  FACTORS  *  ) 

JTS  840 

PRINT  160, <FWMAT(I) ,1=1, NEXP) 

JTS  650 

READ  140, fEFREQ (I) ,1  =  1, NT) 

JTS  860 

PRINT  190 

JTS  870 

FORMAT ( / /10X , *  EXPERIMENTAL  FREOUENCIES  *) 

JTS  860 

PRINT  160,IEFREQ(I) ,1=1, NT) 

JTS  890 

DO  200  T=1»NT 

JTS  900 

EOMEGS (I)=(6»283185*EFREQCI))**2 

JTS  910 

RNST=XMASS/(2.0*NESTA) 

JTS  950 

WF=E  CMEG  S (NEXP)** 2 

JTS  970 

00  220  1=1, NEXP 

JTS  980 

PWMAT (I) =RNST*WF* PWMAT  Cl) 

JTS1GG0 

FWMAT(I) =FWMAT (I) *WF/ (EOMEGS (I) **2) 

JTS1010 

PRINT  223 

JTS1020 

130 


/ 

/■ 


o  o  o  o  o  o 


Table  A-8 
(Cc't'd.) 


223  FORMAT < //10X, •  MOOE  SHAPe  WEIGHTING  FACTORS  *  ) 

PRINT  160,<PWMAT(I> ,I=1,N£XP) 

PRINT  226 

226  FORMAT ( / /10X , *  MOOE  FREQUENCY  WEIGHTING  FACTORS  *  > 

PRINT  1&0,<FWHAT(II ,I=i,NEXP> 

230  PEAT240  ,  (KSTA(I) ,XVAP(I> ,SPRINGL(I» ,SPRINGU ( I ) , KTYPE C I> , 1=1 ,NVSPR) 
240  F0RMAT(2l4,2£8.<i,I4) 

PRINT  250 

250  FORMAT ( //22X , *  K*,*  K VAR f I) *  ,  2X  ,*  SPRINGL (I)*,2X,*  SPRINGUC I) • , 2X, 
1*  KTYPE* ) 

FRINT  260, (KSTA<I) ,KVAR(I) ,SPRINGL(I) ,SPRINGU(I) , KTYPE <I> ,I=i,NVSP 
1R) 

260  FORMAT ( /  <20X, 14,18 ,2E13.5, 16) * 

DO  270  1=1,10 
CO  270  J  =  1,NST fl 
£PHI(J,I)=0.0 
27 0  FPHlP(J, 11=0.8 

RFAOING  EXPERIMENTAL  MODAL  DATA 

IF(NESTA.EQ.NSTA)GO  TO  290 
CEAC140, (XESTA(I) ,1=1,  NESTAI 
PRINT  280 

28'’  FORMAT (//30X,*MODE  MEASUREMENT  STATIONS,  XESTA(I)*) 

PRINT  16 (J ,  ( XEST A  { I )  ,I=1,NESTA) 

290  PRINT  300 

300  FORMAT(1H1,20X,25H  EXPERIMENTAL  MODE  SHAPES,//) 

MSTA=NESTA 

IF ( NEXP. GT«5) MSTA=2*NESTA 

OO  320  IT=1,MSTA 

°EAO  330  , J ,K , (SHEL (LI ,L  =  1 , 5) 

PRINT  330, J,K, (SHEL (U ,L  =  1,5) 

OO  310  L=l, 5 

310  EPHI(J,(K*L-1))=SHEL(L) 

320  CONTINUF 

330  F0RMAT(6X,2I3,5E12. 5) 

PRINT  340 

340  FORMAT (1H1,2QX,25H  FXPERIMENTAL  MOOE  SLOPES,//) 

OO  360  TT=1,MSTA 

PE AC  330  , J,K, (SHEL(L) ,L  =  1,5) 

PRINT  330, J,K, (SHEL (L) ,L  =  1,5) 

OO  350  L=l,5 

350  FPHIPIJ, <K*L-i>)=SHEL(L> 

360  CONTINUE 

READ  REAM  DESCRIPTION 

NX=  0 

370  NX=NX+1 

RE AO 380, <ITME(LL*NX) , LL=1 , 5) , (OAAT (KK,NX) ,KK=i,7> 


JTS1025 

JTS1030 

JTS1040 

JTS1045 

JTS1050 

JTS1060 

JTS1070 

JTS1080 

JTS1090 

JTS1100 

JTS1110 

JTS1120 

JTS1130 

JTS1140 

JTS1150 

JTS1160 

JTS1170 

JTS1180 

JTS1190 

JTS1200 

JTS1210 

JTS1220 

JTS1230 

JTS1240 

JTS1250 

JTS1260 

JTS1270 

JTS1280 

JTS1290 

JTS1300 

JTS1310 

JTS1320 

JTS1330 

JTS1340 

JTS1350 

JTS1360 

JTS1370 

JTS1380 

JTS1390 

JTS1400 

JTS1410 

JTS1420 

JTS1430 

JTS1440 

JTS1450 

JTS1460 

JTS1470 

JTS1480 

JTS1490 

JTS1500 
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380  FORMAT  < 214, 31 2, 2X, 7E8 , 0) 

IFCITME(1,NX) .NC.OIGO  TO  370 

<■>» 

o 

C  LAST  DATA  CARO  HAS  BEEN  READ 

C 

NCAPO=NX 

C 

C  PRINT  BEAM  DESCRIPTION 

C 

PRINT  390 

390  FORMAT ( 1H1,*  BEAM  DESCRIPTION  READ  BT  PROGRAM  JOINTS*///) 

DO  410  I=l,NC»RO 

PRINT  400,<ITMF(J,I) , J=l,5> , COAAT ( J J, T) , J J=1 , 7) 

400  FORMAT  ( <514 , 4X , 7E1 3 . 5) ) 

410  CONTINUE 

C 

C  SETTING  STATIONS  TO  INTERNAL  COUNTERS 

C  DEFINE  APPENDAGE  NUMBERS  *  NA ,  TOTAL  NUMBER  *  NAT,  FIRST  AND  LAST 
C  STATION  NUMBERS  =  NAONE(NA)  ANO  NAFNO(NA), 

C 

nat=na=naone  < 1) *1 

NN  =  1 
K=0 

DO  460  J*l, NSTA 
XSTA<J)=OAAT<3,NN) 

TF<K.NE.0)GG  TO  420 
IF(ITME(4,NN) «  NE . 0) GO  TO  450 
IF(ITME(1,NNH)  .EO.O)GO  TO  430 
IF ( I THE  <  2 ,NN) . NE« IT  ME  <  2  ,NN* 1) ) GC  TO  430 
420  NN=NN*1 
K=0 

GO  TO  460 
43 C  NAENCCNA)*J»1 

IF  ( ITME  (l,NN*li  .  >:Q.  0)  GO  TO  440 
NA=N A+l 
NAONE  <NA ) =J*2 
GO  TO  450 
440  NAT  =  NA 
450  K*1 
460  CONTINUE 

PRINT  470, NAT 

470  FOPMAT(/10X,*NAT  =  *,131 
PRINT  480 

480  FCfMAT (  /10X,*  J*, 5X, *N AONE  t  J)  • , 5X , *NAENO  <  J)  *) 

PRINT  490 , (J , NAONE ( J) , NAENO ( J) ,J*1,NAT> 

490  FURMATC10X,I3,5X,I8,5X,I8) 

C 

C  COMPUTING  GENERALIZED  MASS  FOR  THE  INPUT  MOOES 

C 

00  520  I=1,N€XP 


JTS1510 

JTS1520 

JTS1530 

JTS1540 

JTS1550 

JTS1560 

JTS1570 

JTS1590 

JTS1590 

JTS1600 

JTS1610 

JTS1620 

JTS1630 

JTS164C 

JTS1650 

JTS1660 

JTS1670 

JTS1680 

JTS1690 

JTS1700 

JTS1710 

JTS1720 

JTS1730 

JTS1740 

JTS1750 

JTS1760 

JTS1770 

JTS1780 

JTS1790 

JTS1800 

JTS1810 

JTS1820 

JTS1830 

JTS1840 

JTS1850 

JTS1860 

JTS1870 

JTS1880 

JTS1890 

JTS1900 

JTS1910 

JTS1920 

JTS1930 

JTS1940 

JTS1950 

JTS1960 

JTS1970 

JTS1980 

JTS1990 

JTS2000 
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NN=Q  JTS2010 

JJ=0  JTS2020 

CM(I)=0.C  JTS2030 

500  NN=NN»1  JTS2040 

JJ=JJ*1  JTS2050 

IFITTME(4,NN> .NE.O) GO  TO  510  JTS2060 

GM<I)=GM(I)«-0*AT<2,NN)*£PHI  t  JJ , I) • EPHI < J J ,  I)  ♦OAATtAjNN)  *EPHIP(  JJ,I  JTS2070 
1)*EPHIP<JJ,I)  JTS2080 

IE(ITME<?,NN)  .N£.ITME(2,NN+1>)  JTS2090 

IF(JJ.LT.NSTA)G0  TO  5C0  JTS2100 

GO  TO  520  JTS2110 

510  JJ=JJ»1  JTS2120 

GO  TO  500  JTS2130 

520  GM(I)=GM(I)/396.4  JTS2140 

PRINT  530  JTS2150 

530  POPMAT(/5X,*  THE  GENERALIZED  MASS  ASSOCIATED  WITH  THE  INPUT  MOOES*  JTS2160 


540 


550 


560 


570 


/) 

JTS2170 

PRINT  540,(GMCI> ,I=1,NEXP) 

JTS2180 

FORMAT <1X»5E20. 8) 

JTS2190 

CEFINE  STATION  NUMBER  OF  LARGEST  DISPLACEMENT  FOR 

EACH 

JTS2203 

EXPERIMENTAL  HOOE  NSMAXPH(I> 

JTS2210 

DO  560  I=1,NEXP 

JTS2220 

NSM A  XPH ( I) =1 

JTS2230 

MAXSIGN  < I)  =  1 

JTS2240 

IF ( EPHI (1,1) .LT.0.0)  MAXSIGN(I)  =-l 

JTS2250 

PHMAXsABStEPHI 11,1)) 

JTS2260 

NAE  =  NAENOtl) 

JTS2270 

DO  550  J=2,NAF 

JTS2280 

IF ( A9S ( E PHI ( J , I)  ) .LE. PHMAX) GO  TO  550 

JTS2290 

PHMAX=A  BS(EPHI(J,I) ) 

JTS2300 

MAXSIGN ( I) =1 

JTS2310 

IF  1 EPHI I J, I) .LT.0.0)  MAXSIGN(I) =-l 

JTS2320 

MSM A  XPH  < I ) = J 

JTS2330 

CONTINUE 

JT  32340 
JTS2350 

NORMALIZING  THE  INPUT  MOOES  TO  A  GENERALIZED  MASS 

OF  1.0 

JTS2360 

JTS2370 

CO  560  I=1,NEXP 

JTS2380 

FACT=SGPT (l.OZGM(I) ) 

JTS2390 

ro  560  J  =  1,NST A 

JTS2400 

EPHI (J,I)*FACT*EPHI(J,I) 

JTS2410 

FPHIP(J, I)=FACT*EPHIP(J,I) 

JTS2420 

KXKK=0 

JTS2430 

DO  600  J=1,NVSPR 

JTS2440 

NN=KSTA  <J) 

JTS2450 

IF(KTYPE(J).EQ.2)GO  TO  570 

JTS2460 

IE(0AAT(5,NN) «EO.0«)G0  TO  500 

JTS2470 

SPRING ( J)=1.0/DAAT(5,NN) 

JTS2480 

GO  TC  600 

JTS2490 

IE(0AAT(6,NN) .EQ.0.)G0  TO  580 

JTS2500 

133 


t) 


t 


MMfetoaAi ,  ■  i  in  1 1  ii  s  i  m 


o  o  o  o 


Table  A-8 

(Cont'd. ) 


SPPINGC J)=1.0/OAAT(6,NN) 

GO  TO  600 
580  PPINT  5«0, J 

590  FORMAT ( //6H  ♦♦♦•,18H  COMPLIANCE  NUMBER, 13, 15H  IS  ZERO. 

TSTOP=i 
60  C  CONTINUE 

IT*E (3 , NCAROl =1 

TF(CAAT(4,NCARO).EQ.O.Q)  OAAT (4 ,NCARO)  =250. 
IF(0AAT(3,NCAR0) .FQ.0.0)  OAAT ( 3 ,NC ARO) =1. 10 
IF(0AATC1,NCARO) .FQ.0.0)  OAAT C 1  ,NC ARD) =2 . 5 
SFREO=0 A  AT  < 1 , NCARD) 

STOPFR=PAAT (4»NCARO) 

PO  610  J=1,NVSPR 
610  SSP4INGC J)=$PRING<J> 

JA  =  0 
JB  =  0 
JD  =  0 
MIKE=0 

0ELF=DAAT (3, NO ARO) 
no  620  1=1, NT 
620  STFREQC I ) =EFREQ (I) 

IFCISTOP.EQ.il  GO  T0  10 
MWH  =  0 

TFCXMASS.CT.0.01  GO  TO  630 
PRINT  625 

625  FORMAT (//10X, 62H*  MISSILe  MASS  HAS  BEEN  READ  AS  ZERO. 
1ERMINATEC.  *) 

GO  TO  10 

END  OF  INITIALIZATION  PASS 
GFNERAL  PASS 

630  CONTINUE 

CO  650  J=1,NVSPR 
NN=KST  A ( J) 

IFCKTYPFCJI .EQ.21GO  TO  640 
OAAT  (5,NN»*1.0/SPPINGCJI 
GO  TC  650 

640  PAAT(6,NN)rl.0/SPRING<JI 
650  CONTINUE 

IFUTEP.EQ.DGO  TO  670 
PO  660  1=1, NT 
660  STFREQC I ) =TFREQf I) 

67 Q  CONTINUE 
NTsNCTM 
*TS  =  0 

CO  680  1=1, NT 
TFREQ(I) =0.0 
CO  680  K  =  1,NST A 
TPHI  (K , I ) =0 • 0 


JTS2510 
JTS2520 
JTS2530 
***♦>  JTS2540 

JTS2550 
JTS2560 
JTS2570 
JTS2580 
JTS2590 
JTS2600 
JTS2610 
JTS2620 
JTS2630 
JTS2640 
JTS2650 
JTS2660 
JTS2670 
JTS2680 
JTS2690 
JTS2700 
JTS2710 
JTS2720 
JTS2730 
JTS2732 
JTS2734 
THIS  CASE  T  JTS2736 
JTS2737 
JTS2738 
JTS2740 
JTS2750 
JTS2769 
JTS2770 
JTS2780 
JTS2790 
JTS2600 
JTS2810 
JTS2820 
JTS2830 
JTS2840 
JTS2850 
JTS2860 
JTS2870 
JTS2880 
JTS2890 
JTS2900 
JTS2910 
JTS2920 
JTS2930 
JTS2940 
JTS2950 
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TPHIP(KTf  l)  =0.0 
OAAT  (1  ,NCA<?0)  =SFPEQ 

SOLVE  c'OP  NEW  FRFGUF NC IEC  «N0  MODE  SH«°ES 
PAINT  Fo  r  t  i  t  £P 

cOPNAT (1H1 ,40X  ,21H  INPUT  FCR  ITFOATION  ,T3/> 

LIM£=0 

00  830  1  =  1, NOTH 
OAST (?,NCARD)=OELF 
QAAT  (4,NCfiO'l)  =ST0PcR 
IF (MTS. EQ. 1) GO  To  <30 
IF ( I. EC. 1) GO  TO  760 
TF(<OLPSE.E0.1)GO  TO  *30 
IF(STFREQ(I>  .NE.f'.OGO  TO  710 
PRINT  70  0,1 

F0=>MfT(13H  ***  STFPFO  ( ,  12 ,36H)  EQUALS  0.0,  THIS  COSE  TERMINATED.) 

M J  KE  =  1 

GO  TO  fl10 

XFPEO=CLCSE*  EFRFQ(I) 

YFc’fcQ  =  nElF*EFRFOCl-l) 

IF (XFRFQ.GT. YFPFQ) GC  to  720 

YFFFQ=  FFRfQ(T-1)*{  EFREO(I)-  EF?EQ(I-1) ) /2.  0 

0AAT(,3,NC0RD)  =  1.0f(CEFO£Q(J)  -cfrpq  {j.j  > >  ,  (6  #  o*EFREQ  ( I}  > , 

DAAT (1  ,NC0R0i =XFR€Q 
GO  TO  740 

!  3 A AT (1 ,NC0RU)=D04T (3 ,NC ARO) * TFREQ < I- 1> 

1  IF(OAAT( 1 ,NCSPO) , G T . ^0 « T (4 , NC 8 Fn 1 ) GO  TC  810 
PRINT  750, (ITMF(j,NCAPO) , J=l,5) , ( DA  AT ( J J , NCAfiD) , JJ=1,7) 

FORMAT (/ (514, 4X,7E13. 5) ) 

1  CALL  mykl (FREQ, GAM, LIME) 
l I ME  =  1 

IF(F«F0.NE.3.)GO  TO  78C 
PAINT  770 

I  focnAT*/*  ERROR  IN  COMPUTED  MODE  FREQUFNCIFS.  FREQ=0.0,  THIS  CASE 

1  APOPTFD  *) 

MI XE=1 
\  CONTINUE 

IFd.FQ.liGO  TO  790 
IFtFRFQ.EO.TFREO;i-l))GO  TC  820 
;  CONTINUE 
DO  800  <  =  1 , N ST  8 
TPHI  <K,I)  =  VEC(«*,X) 

!  TPHIP(<, I) =VEC (3,K) 

T FRF Q  (  I)  =FREQ 
GM(I ) 

GO  TO  830 

I  IF(MTS.EC.l)GO  TO  *30 
NT  =T 
MTS=1 


JTS2960 

JTS2970 

JTS2980 

JTS2990 

JTS3000 

JTS3010 

JTS3020 

JTS3030 

JTS3040 

JTS3050 

JTS3060 

JTS3070 

JTS3080 

JTS3090 

JTS3100 

JTS3110 

JTS3120 

JTS313C 

JTS3140 

JTS3150 

JTS3160 

JTS3170 

JTS3180 

JTS3190 

JTS3200 

JTS3210 

JTS322C 

JTS3230 

JTS3240 

JTS3250 

JTS3260 

JTS3270 

JTS3280 

JTS3290 

JTS3300 

JTS3310 

JTS3320 

JTS3330 

JTS3340 

JTS33S0 

JTS3360 

JTS3370 

JTS3380 

JTS3390 

JTS3400 

JTS3410 

JTS3420 

JTS3430 

JTS3440 

JTS3450 
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GO  TO  e30  JTS3460 

6?"  NT=I-1  JTS3470 

MTS=1  JTS3480 

87"  CONTINUE  JTS3490 

IF(vi<f .EQ.l) go  TO  10  JTS3500 

JTS3510 

MATCHING  CORRESPOND  TNG  MOOES  JTS3520 

JTS3530 

FINC  MINING  MOOES  JTS3540 

JTS3550 

NT = NOTH  JTS3560 

TO  1070  1=1, NT  JTS3570 

TF(KCHECK.E0.2)G0  TO  1040  JTS3560 

L0ITE=O  JTS3590 

840  NSGNCH=  0  JTS3600 

TO  860  Nfl=l , N AT  JTS3610 

NSf-N  =  l  JTS3620 

IF(TFHIP(NAONE(NA) ,1) .LT.0.0)NSGN=-1  JTS3630 

Nl=NAONF <NA) *1  JTS3640 

N?=NAENf(NA)  JTS3650 

TO  850  J=N1,N2  JTS3660 

NSG=1  JTS3670 

IF (  TPHIP(J,I».LT.C.C)NSG=-1  JTS3680 

TF(NSG.FC.NSGN|GO  to  850  JTS3690 

NSGN=NSG  JTS3700 

NSGNCH=NSGNCH*1  JTS3710 

850  CONTINUE  JTS3720 

86  C  CONTTNUF  JTS3730 

IF(NSGNCKFQ.I)GO  TO  1040  JTS3740 

L0ITE=LPITE+1  JTS3750 

GO  TC  (940,960,870)LPITE  JTS3760 

870  POINT  880  JTS3770 

880  rOPHAT( 1  HI , 20 X* MOOES  PAVE  BEEN  MISSFD  THREE  TIMES . CURRENT  MODE  JTS3780 

IS  ANG  SLOPES*//)  JTS3790 

NL  =  1  JTS3800 

8Q0,  NN=Nl«-3  JTS3810 

TF(NN,GT.NT)NN=NT  JTS3820 

DO  0  00  KS  =  1,NSTA  JTS3830 

900  POINT  910, KS, <TPHI(KS,KM) , TPH I P CKS , KM > ,KM=NL,NN>  JTS3840 

91 0  FOPMAT( (2X, 14,4(37, ?F13. 5)))  JTS3650 

NL=Nl*4  JTS3860 

IF(NL.LF .NT) GO  TO  890  JTS3870 

PRINT  920  JTS3880 

9?3  FORMA! (//20X*PREQUENCIES  AND  GFNERALI7EO  MASSES*  ,//)  JTS389" 

PRINT  970,(KM,TFREQ(KM) ,GM(KM) ,XM=1,NT)  JTS390O 

933  PORMAT( ( 10X,I5,2(10XF17.7) ) )  JTS3910 

GO  TO  10  JTS3920 

940  PRINT  950,1  JTS3930 

95  C  FORMAT(//?OX*MOOE*,I5,3X*HAS  BEEN  MISSEO  ONCE*)  JTS3940 

GO  TO  980  JTS3950 
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460  PRINT  970,1 

970  FOrMaT  (//2JX*MOOE*,I5,3X*HAS  diet*  MISSED  T NICE*) 

980  gONIINUl 

IFtNSGNwH.Gl «NT)GO  TO  1000 

MN=NSGNlH 

HH*MNtNl 

Mi=I*NT 

uO  990  N=NN,NT 
TFr£U(”H*NM1  *TFREQ4-N*MI) 

GM(~N*Mrl>=Gf1<«N*NI) 

DO  990  L-i ,NST A 
TPHId,-H*rtM)  =  TPHI(L,-N«-NI> 

990  TPHXP(L,-M*MM) *TPHIP (L , 
iNF=NN-i 

umAT (4 ,NCAK0) *  0.99*TFr£U(I NF*1) 

GO  JO  luiO 
1000  INFANT 

UAAT<4,NGAKU)=fl.99*TFREQ<NT) 

1010  OAAT<3,uGARG)=1.0»fl.2*(OAAT(  3, NCArj) -i. 0) 
uO  1030  IN=I,iNF 
uMhl  (1  ,NGAmJ>=SFRcQ*<0»  9**C3ITt) 

IFdN.Nc.l) OAaT (1 jNCAkGT  *1 • Ql*TFRtQ(I“l) 

PRINT  7  Suit  (ITMl( J,NCARO)  ,3*1,5)  ,  (uamT  ( J  J ,  NCARG)  ,  JJ=1 , 7) 

GALL  HVRUFREti, GAM, LINE) 

GO  1020  K=1,NSTh 
TPHKK  tIN)=VEG(4,K) 

1020  TPHIP(K,IN)=YtL(3,K) 

tfreu(Ini=freq 

10J0  GMUN)=uAM 
GO  TO  «*0 

G  gONPAKc.  POLARITY  TO  THAT  OF  EXPERXMENTAL  MODE 

G 

lu40  GONTINUi 

IF  U.GT.NtXPiGO  TO  1070 
NSIGN=1 

IF  CTPHKNSHAXPHUI  ,1)  . L T .  0 . 0)  NSIGN=- 1 
IF  (NSIGN.Nt.MAXSIGNU) )  GO  TO  1050 
GO  TO  1 J  70 

1050  UO  1060  3= l ,NS  T  A 

TPHAiJ,i»=-TPHI (J,I) 

1060  IPMIP4 J,I)=-TPHIP(J,I) 

1070  CONTEND^ 

Print  iueo 

1080  FORMAT {/*  GOMPUTtG  GENERALIZED  MASS  FOR  THE  NYKL  NOOfcS  ARE  •/) 
PRINT  lu9Q,(GM(i) ,1=1, NIT 
1090  FORHmT (cX,10£13.5) 

NORMALISING  MY KL  MOOtS  TO  A  GtNERALIZEO  NASS  OF  1.0 
GO  1100  1*1, NT 


JTS3960 

JTS3970 

JTS39S0 

JTS3990 

JTdAQOQ 

J7S401G 

JTa402C 

JTS4U30 

JTS4040 

JTS4050 

JTS4Q6Q 

JTS4070 

JTS4080 

JTS4090 

JTS4100 

JT34110 

JTS4120 

JTS4130 

JTS4140 

JTS4150 

JTS4160 

JTS4170 

JTS4180 

J7G4190 

JTS4203 

JTS4210 

JTa4220 

ITC  /.  *>  n 

*0  «  ~T  L  U 

3IS424Q 

JTS4250 

JTS4260 

JTS4270 

JTS4280 

JTS4290 

JTS4300 

JTS4310 

JTS4320 

JTS4330 

JTS4340 

JT34350 

JTS4360 

JTS4370 

JTS4380 

JTS4390 

JTS4400 

JTS4410 

JTS4420 

JTS4430 

JTS4440 

JTS445Q 
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T0NEGS(I>=(6.283ie5*TFREQ<I)>**2 
FACTs SORT (1.9/GH(I) ) 

00  1100  J=lf NSTA 

TPHl CJ,II=FACT*TPHl(J,I) 

1103  TPHIPIJ, I»sFACT*TPHlP(J,I) 

PRINT  1110 

1110  FORMAT C /*  THE  THEORETICAL  MOOES  HAVE  BEEN  NORMALIZED  *) 
CHECK  MOCE  SHAPE  AND  FREQUENCY 

LOGIC  FOR  CONTROLING  PROGRAM  MYKL  MILL  BE  LOCATED  HERE 
OBTAIN  NEW  ESTIMATES  OF  THE  JOINT  COMPLIANCES 
CALL  STEEP 

IF ( ITMAX  «GT« 1)  GO  TO  1115 
ITER=i 
CALL  RENORM 
GO  TO  10 

1115  IF  C (MWH.lT.l) . OR. (MWH ,GT ,2) ) GO  TO  1120 
CALL  ALTER 
GO  TO  630 

1120  IFdSTOP.EQ.OJGO  TO  1130 
CALL  RENCRM 
GO  TO  10 

1130  IF ( JA.EQ. 2) GO  TO  1140 
GO  TO  630 

CONVERGENCE  CHECK  ON  SOLUTION 

1140  K7ERO=0 

CO  1150  K*1 , NVSPR 
OELTAk=ASPRINGCK| -SSHRING(K) 

IF(DELTAK.EQ.O.O)  KZERO*l 
IFtKZERO.EQ.llGO  TO  1160 
CO  1150  J=1 , NVSPR 

115  0  BB(K,JI  =  (AA(J,K)-SPFK(jn/OELTAK 
1160  CONTINUE 

IF ( K ZERO .EQ. 0 1  GO  TO  1160 
PRINT  1170 

1170  FORMAT ( 1  OX, 37H  OELTAK  s  0.0,  THIS  CASF  TERMINATED.  ) 

GO  TO  10 
1180  CONTINUE 

BB<  J,K|  =THE  MATRIX  OF  SECOND  ORDER  DERIVATIVES 
PRINT  1190 

1190  FORMAT ( //10  X , *  THE  SECOND  OROER  DERIVATIVES  ARE  */> 

OO  1200  J*l, NVSPR 

1200  PRINT  1 210, (BB ( J, K) ,K*1, NVSPR) 

1210  FORMAT (1X,10E13.5) 


JTS4460  I 

JTS4470  | 

JTS4480  I 

JTS4490  | 

JTS4500 

JTS4510 

JTS4520  3 

JTS4530  * 

JTS4540  • 

JTS4550 

JTS4560 

JTS4570 

JTS4580 

JTS4590 

JTS4593 

JTS4594 

JTS4595 

JTS4597 

JTS4600 

JTS4610 

JTS4620 

JTS4630 

JTS4640 

JTS4650 

JTS466P 

JTS4670 

JTS4660 

JTS4690 

JTS4700 

JTS4710 

JTS4720 

JTS4730 

JTS4740 

JTS4750 

JTS4760 

JTS4770 

JTS4760 

JTS4790 

JTS4800 

JTS4810 

JTS4820 

JTS4830 

JTS4840 

JTS4850 

JTS4860 

JTS4870 

JTS4880 

JTS4898 

JTS4900 

JTS4910 
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AVERAGING  THE  SECONO  ORDER  DERIVATIVES 

00  1220  K=l, NVSPR 
00  1220  J=l, NVSPR 
AA(K,J)=<8BCK, J)*8B(J,K) >72.0 
00  1230  J=1,NVSPR 
00  1230  K=i, NVSPR 
1230  BBC J,K)=AA<J,K) 

PRINT  1240 

1240  FORMAT ( //10  X,#  THE  AVERAGEO  SECOND  0R0ER  DERIVATIVES  ARE  */) 

00  1250  J=1 , NVSPR 

1250  PRINT  1210, C88<J,K) ,K=1, NVSPR) 

CALL  INVERSION  ROUTINE 

CALL  MATNF  5  ( B8 , NVSPR , 10 ,  1 «  0  »D£T , IERROR) 

PRINT  1260, OET 

1260  FORMAT ( /*  OET  =  %E16.7> 

PRINT  1270 

1270  FORMAT f //10X » •  THE  INVERSE  OF  THE  SECOND  ORDER  DERIVATIVES  ARE  */) 
CO  1280  J=i, NVSPR 

1280  PRINT  1210, (BBCJ,K1 ,K=1, NVSPR) 

CHECKING  THE  INVERSE  OF  THE  SECONO  ORDER  TERMS 

OO  1290  1=1, NVSPR 
DO  1290  J=i, NVSPR 
CC(I,J)=0.0 
00  1290  K*l, NVSPR 

1290  CCCI,J)=CC(I, J)*AA(I,K)*8B(K, J) 

PRINT  1300 

1300  FORMAT ( //*  THE  INVERSE  OF  THE  SECONO  ORDER  DERIVATIVES  TIMES  THE 
1 SECOND  OROER  DERIVATIVES  EQUAL  */) 

00  1310  J=l, NVSPR 

1310  PRINT  1210, CCC(J,K) ,K*1, NVSPR) 

COMPUTING  NEW  SPRINGS  RATES  UTILI7ING  SECONO  OROER  TERMS 

00  1340  J*l, NVSPR 
TEMP=0 • 0 

00  1320  K*l, NVSPR 
1320  TEMP=TEMpeB8(J,K)*SPFK(K) 

SPRI^G(J)=SSPRING(J)-TEMP 

RAT I0=ABS (SPRING C J) /SSPRING ( J) -1.0) 

IF(RATIO.LT.0.025)GO  TO  1330 
XNUM=ASPPING< J) -SSPRING (J) 

XOEN*SPRINGC J) -SSPRING (J) 

IF ( XOEN. EQ« 0 . 0 ) GO  TO  1330 
RATI0=XNUM/X0BN 


JTS4920 

JTS4930 

JTS4940 

JTS4950 

JTS4960 

JTS4970 

JTS49S0 

JTS4990 

JTS5000 

JTS5010 

JTS5020 

JTS5030 

JTS5040 

JTS5050 

JTS5060 

JTS5070 

JTS5080 

JTS5090 

JTS510O 

JTS5110 

JTS5120 

JTS5130 

JTS5140 

JTS5150 

JTS5160 

JTS5170 

JTS5180 

JTS5190 

JTS5200 

JTS5210 

JTS5220 

JTS5230 

JTS5240 

JTS5250 

JTS5260 

JTS5270 

JTS5280 

JTS5290 

JTS5300 

JTS5310 

JTS5320 

JTS5330 

JTS5340 

JTS5350 

JTS5360 

JTS5370 

JTS5380 

JTS5390 

JTS5400 

JTS5410 
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Table  A-8 
(Cont 'd. ) 


IFCRATTO.LT.O.O)  SPRING CJ> = ASPRING !J) 

133 Q  CONTINUE 

IFCSPRINGCJ)  .LT.SPRINGLCJ)) SPRING CJ)=SPRINGLCJ) 

IF  (SPRING  <JI  .GT.SPRINGl' C'J)  I  SPRING CJ) =SPRINGU (J) 

COMPCJ) =1.0/3PRINGC J) 

1340  CONTINUF 

PRINT  1350 

1350  FORMATC//20X,2H  J,8X,5H  KCJ),9X,8H  COMPCJ) ,12X,8H  SPFKCJ)*/) 
PRINT  1360, CJ, SPRING CJ> , COMPCJ) ,SPFK( J) , J*1,NVSPR) 

1360  FORMAT C18X,I4,2E16.6,E20.6) 

IFClTER.lT,ITNAX)GO  TO  1380 
PRINT  1370 

1370  FORMAT* //•  THE  MAXIMUM  NUMBER  OF  ITERATIONS  HAS  BEEN  EXCEEDEO  ♦> 
1ST  OP=l 
1380  CONTINUE 
MM=0 

PO  1400  J=1  ,N(CSPR 

PAT  10= A BS  CSPRINGC J) /SSPRING(J) -1.0) 

IF (RATIO-TOL) 1390, 140 0,1400 
139 0  MM=MM*1 
1400  CONTINUF 

IFCMM.LT .NVSPR) GO  TO  1420 
PRINT  1410 

1410  FORMAT < /✓*  THE  MINIMUM  COST  FUNCTION  HAS  BEEN  FOUND  •) 

1ST  OP=l 
142 0  CONTINUE 

DO  1430  J*1 , NVSPR 
OLDSPRC J)*SSPRINGCJ) 

SSPRING  CJ)=SPRINGCJ) 

1430  CONTINUE 

IFCISTOP.EQ.l) GO  TO  630 

J0=0 

JAal 

JB  =  0 

HWH  =  0 

GO  TO  630 

ENO 


JTS5420 

JTS5430 

JTS5440 

JTS5450 

JTS5460 

JTS5470 

JTS5480 

JTS5490 

JTS5500 

JTS5510 

JTS5520 

JTS5530 

JTS5540 

JTS5550 

JTS556G 

JTS5570 

JTS5580 

JTS5590 

JTS5600 

JTS5610 

JTS5620 

JTS5630 

JTS5640 

JTS5650 

JTS5660 

JTS5670 

JTS5680 

JTS5690 

JTS5700 

JTS5710 

JTS5720 

JTS5730 

JTS5740 

JTS5750 

JTS5760 

JTS5770 

JTS5780 


140 


o  o  o  o 


Table  A-9 

FORTRAN  Listing  of  Subroutine  STEEP 


SUBROUTINE  STEEP 

ESTIMATE  SPRING  VALUES  TO  IMPROVE  MATCH  OF  SEAM  MODEL 

COMMON/1/  MHH,  ISTOP,  NSTA , NT ,NEXP , STEP ,1 TMAX ,TOL , I  TER 
COMMON/2/  KKKK,ALPHA,F,PFK (20> ,INTEG(2Q) 

COMMON/3/PWMAT (13) ,FHMAT(10) ,EOMEGS( 10)  , KVAR ( 20  ,  SPRI NGL  ( 20) ,SPRIN 
IS  U  (  20)  ,EPHl( 10  0 ,10)  , EPH  IP  ( 10  0,10)  ,EFREQ(10)  ♦TFREQ(IO) 
COMMON/4/TOMEGSdO)  ,TPHI ( 1 00 , 1 0)  ,TPHIP(100,A0) 

COMMON/5/ JA, J8 ,JC,FF,  SPFKilO ) , AA ( 10 , 10) * ASPRING(20 ) 

C 0HM0N/6/N VSPR , SPRING ( 10)  , SSPRING(lO) ,KSTA(10> ,KTYPE(10) ,COMP(10) 

D I ME NS  ION  FACT  (IQ)  ,PXK(  200) ,  FWI (10) , FXI(iO) 

PRINTING  OUT  A  COMPARISON  OF  EXPERIMENTAL  AND  THEORETICAL  MODES 

3 RINT  10,  ITER 

10  FORMAT <1H1,*  COMPARISON  OF  EXPERIMENTAL  MODES  TO  THEORETICAL  MODES 
1  FOR  ITERATION  NUMBER*, 1 3/) 

NL=1 

2C  NN=NL*3 

IF(NN.GT.NT)  NN=NT 
OO  30  J=1 , NS TA 

30  PRINT  40,  J,(£PHI(J,I)  ,T PHI  (J,I)  ,I=NL,NN) 

4 C  F ORMAT (2X , 14 ,  3X , 2E13. 5 , 3X ,2£1 3. 5 , 3X , 2E1 3. 5, 3X ,2E13.5 ) 

NL=NL*4 

IFCNL.LE.NT# GO  TO  20 
PkINT  50 

5 £  FORMAT (1H1  ,*  COMPARISON  OF  SLOPES  —  EXPERIMENTAL  TO  THEORETICAL*/ 
1) 

NL- 1 

60  NN=  NL*3 

IF(NN.GT.NT)  NN=NT 
00  70  J=1,NSTA 

70  PRINT  40,  J, (EPH IP (J,I),T PH IP(J, I), I* NL,NN) 

NL=NL*4 

IF(NL.LE.NEXP)  GO  TO  60 
PRINT  8C,  ITER 

80  FORMAT <1H1,47X ,*  ITERATION*, 14 //) 

PRINT  90 

9C  F ORMAT ( 10 X ,*  M0DE*,1QX,*  EXPERIMENTAL  FREQ*,10X,*  THEORETICAL  FREQ 

:.*/) 

PRINT  100,  (I  ,EFREQ(I)  ,TFREQ(  I)  ,I  =  1,NT) 

IOC  FORMAT (10 X, I  5, 10X ,£15 . 7 , 10 X,  El  7, 7) 


COMPUTATION  OF  THE  QUAORA'IC  COST  FUNCTION 


FW=0.0 

FX=0,0 

NSP1=NSTA*1 
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Table  A-9 
(Cont 'd. ) 


N SX 2=NSTA*2  STP  518 

00  130  I=i,N£XP  STP  5.20 

FWI(I)  =0 » 5*FHM  AT ( I)  MEOMcG S ( I)  -TOMEG S  (I) )  * tEOMEGS  C I> -TOHEGSC  I) )  STP  530 

FH=FH*FWliI>  STP  540 

FAC  =0.0  STP  550 

00  110  J=1 jNST A  STP  560 

110  FAC  =F AC  ♦  <EPHI(J,I)-TPHI<J,I>>*<EPHI(J,I>-TPHI(J,I))  STP  570 

30  120  J=  MSP  1  »NSX2  STP  580 

J J= J-NSTA  STP  590 

12  C  FAC  =F  AC  MEPHIPC  JJ,II-TPHIP(JJ,I>  >MEPHIP(<3J,I)-TPHIP(JJ,I)  )  STP  600 

FXI  (I)  =0. AC#PWMAT(I)  STP  610 

130  FX=FX*FXI(I)  STP  620 

F  =FM+FX  STP  630 

PRINT  140,F,FH,FX  STP  640 

14 C  FORMAT (//22H  ThE  COST  FJNCIjON  =  ,E 13.5 , 1QX , 6H  FM  =  ,E13. 5» 10X, 6H  STP  650 

t  FX  =  ,£13.5/1  STP  660 


PRINT  150,<ItFWI(I),FXI(I)  ,I=1,NEXP> 

15 C  FORMAT (3dX,I3, 10X ,E13.  5, 16 X, El 3. 5) 

IF(ITER.EQ.l)  FF=F 
IF(JB.EQ.l)  MM H=0 
I F ( JB. NE. 0 ) 30  TO  160 
IF(  ITER.EQ.DGO  TO  160 
IF(FF.GT.F)  FF=F 
MWM±MWM«-1 
IF(FF.GE.F)  MMH=0 

I F ( (MWH.EQ.O ) • OR.  (HMH*  GT. 2 )) GO  TO  160 
3  0  TO  390 

16C  IFdSTOP.EQ.  13  GO  TO  390 

COMPUTATION  OF  THE  GRADIENTS  FOR  EACH  UNKNOWN  SPRING 
POMEGK (PARTIAL  DERIVATIVE  OF  OMEGA  SQUARED  WITH  RESPECT  TO  SPRING 
RATES  K) 

DO  280  J*1 VSPR 
NN=KVAR(J) U 
PFK(J) =0.0 

IF(JB.NE.O)  AA(J,JB)=0.0 
DO  280  I  =  1,NEXP 
I F( KTYP£( J) . EQ. 1) GO  TO  170 
POM£GK=(TPHIP(NN-l,I)  -TPHI  PINN  ,1) )  **2 
SO  TO  108 

170  P0M£GK=(TPHI (NN-1 ,IJ -TPHI ( NN , I ) ) ** 2 
180  CONTINUE 

PXMPARTIAL  DERIVATIVE  OF  PHI  WITH  RESPECT  TO  SPRING  RATES  K) 

DO  193  NX  =  1,NSX2 
RC  P  XK ( NX ) =0  »  0 
DO  2**<J  L=1,NT 
IFU.EQ.DGD  TO  24C 


STP  670 
STP  680 
STP  690 
STP  700 
STP  710 
STP  720 
STP  730 
STP  740 
STP  750 
STP  760 
STP  770 
STP  780 
STP  790 
STP  800 
STP  810 
STP  820 
STP  830 
STP  84C 
STP  850 
STP  860 
STP  870 
STP  880 
STP  890 
STP  900 
STP  910 
STP  920 
STP  930 
STP  940 
STP  950 
STP  960 
STP  970 
STP  980 
STP  990 
STP10Q0 
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Table  A-9 
(Cont 'd. ) 


IFCKTYPECJ).EQ.1)G0  TO  200 

FACT  CL )  =  CTPHIP  CNN-1,L)*TPHIPCNN-1,I>  -TPHIPCNN-1,L)  *TPHIPCNN, I) -TPH 
II  PCNN,L)*TP4  IP  CNN-1,1)  ♦TPHIPCNN.L)  *T PHIP CNN, I) ) / CTONEGSC I) - f OHEGS C 
2D) 

GO  TO  210 

23 C  F  ACT CL  )  =  CTPHIC  NN-1,L)  *TPrtI CNN- 1 , 1) -T PHIC NN-1 , L > *TPHI C NN, I ) -TPH I  CNN 
1,  L)  ♦TPHICNN-1,I)*TPHICNN,L)»  fPHl  CNN,  I ) )/ CTOHEGSCI)  -TOHEGS  (L) ) 

210  CONTINUE 

00  22C  NX=1,NSTA 

?XK(NX)=PXKC  NX)  if  ACTCL)  *TPHI  (NX,L) 

00  230  NX=N> PI  ,NSX2 
NY=NX-NSTA 

>X<CNX)=PXKCNX)*FACT(L)*TPHIPCNY,L> 

CONTINUE 


22 


23  0 
24C 


25  C 


260 


27  0 

28  0 


29  C 

30  C 


U 

c 

c 


COMPUTATION  OF  PFKC  J)--PARTI  AL  DERIVATIVE  OF  F  WRT  K 


PFKX=0 • 0 
PFKW-0  <0 
00  250  N=1  ,NST A 

PFKX=PFKX*PWMATCI)*CTPHICN,I)-EPHI (N , I) ) *PXK  CN) 

30  260  N*NSPltNSX2 
NY=N-NSTA 

?FKX=PFKX«-PMNATCI)*CTPNIPCNY,I )  -EPHIPCNY.I) }*PXX<N> 
RFKW=F WMAT  Cl  )*  CTOMEGS  C I ) -EONEG S C  I)  )  * PCKEG* 

9FKCJ)  =PFKCJ)tPFKX«-PFKW 

IFC J8*EQ.O)GO  TO  270 

A  AC J,JB)=AAC J, JB) ♦PFKX  +  PFKM 

CONTINUE 

CONTINUE 

I  FC  JB*  EQ«  N  VS  PR)  GO  TO  380 

I  F  C  JO*  EG*  1)30  TO  30  0 

JA  =  1 

JB=0 

JO=l 

OO  290  J*  1  ,N  VS  PR 
SPFKCJ)=PFKC  J) 

CONTINUE 


COMPUTING  WHERE  THE  COST  FUNCTION  GOES  TO  ZERO 


31  C 

32  C 


jc=ja+i 

IFCSPFKCJC).GT*0.0)GO  TO 
ALPHA=-STEP*SSPRING(JC) 
*0  TO  320 

ALPH A=  ST£P*S  SP  RING  C  JC) 
CONTINUE 


310 


COMPUTING  NEW  GUESSES  FOR  THE  VARIABLE  SPRINGS 


143 


STP101Q 
STP1020 
STP10  30 
STP1040 
STP1050 
STP1060 
STP10  70 
STP1080 
STP1090 
STP1100 
STP1110 
STP1120 
STP1130 
STP114G 
STP1150 
STP1160 
STP1170 
STP1180 
STP1190 
STP1200 
STP121C 
STP1220 
STP1230 
STP1240 
ST PI 250 
STP1260 
STP1270 
STP1280 
STP1290 
STP1300 
STP1310 
STP1320 
STP1330 
STP1340 
STP1350 
STP1360 
STP1370 
STP1360 
STP1390 
STP1400 
STP141Q 
STP1420 
ST PI 4 30 
STP144C 
STP1450 
STP1460 


STP1470 

STP1480 

STP1490 

STP1500 


7 
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Table  A-9 
(Cont  'd. ) 


C 

C 

C 


IF{ JB.EQ.OISO  TO  330  STP1510 

SPRING (JB>=5SPR1NG(J8)  STP1520 

33 C  CONTINUE  STP1530 

J8=JB*i  STP1540 

SPRING (JBI =SSPRlNG(J8) -ALPHA  STP1550 

I  PC  SPRING ( JB)  •  LT .  SPRINGL (  J B) ) SPRING ( J8) =SPRI NGL ( JB )  STP1560 

I FC SPRING ( J3).GT. SPRING J ( JB) ) SPRING < JB)=SPRINGUCJB)  STP1570 

A  SPRING! JB) - SP R1NG( JB)  STP1580 

00  340  J=  1  ,N  VSPR  STP1590 

34 C  COMP(J)=1.07SPRlNG<J>  STP1600 

PRINT  350  STP1610 

35 C  FORMAT (/20X,2H  J,8X,5H  <<J),  11X,7H  PFKIJ),12X,8H  COMP  STP1620 

l<J)/>  STP1630 

PRINT  360  t  (J (SPRING (J)  )  PFK{  J>  ,  COMP(  J)  ,  J=l,Nl/SPR>  STP1640 

360  FORMAT  (18X, 14, £16. 5,  2E18.5)  STP1650 

PRINT  370, ALPHA  STP1660 

37  C  FOKMAT</10X,*  AlPHA  =  *,E16.5>  STP1670 

I T£R=I T£R*1  STP1680 

STP1690 

50  TO  390  STP1700 

STP1710 

STP1720 

3b  C  J  A=  2  STP1730 

I T£R=I TER+1  STP1740 

STP1750 

RETURN  TO  PROGRAM  JOINTS  STP176C 

STP1770 


390  CONTINUE 


STP1780 


ENU 


STP1790 


144 


o  o  o 


Table  A-10 

FORTRAN  Listing  of  Subroutine  ALTER 


SUBROUTINE  ALTER 

ALT 

10 

alt 

20 

ESTIMATE  NEB  SPRING  RATES  WHEN  THE  COST  FUNCTION 

HAS  INCREASED 

alt 

30 

ALT 

40 

C0HH0N/6/N  VSPR  » SPRING (10) ,SSPRING<10) .KSTAC10) ,KT YPEC 10) ,CCMP(10) 

ALT 

50 

C  OMMON/7/XR4  TI 0 ,OLQSPR  CIO) 

ALT 

60 

DIMENSION  RATIOCIO) 

ALT 

70 

DO  10  J=i » NV  SPR 

ALT 

80 

RAT  IOC  J) =0 .0 

ALT 

90 

IFCOLDSPR(J)  .EQ.0.)GO  TO  10 

ALT 

100 

RAT  IOC  J)  =  SSPRI NGC  J)  /OLOSPR(J) 

ALT 

110 

1C 

CONTINUE 

ALT 

120 

IFCXkATIO.^D.O .)  XRATIO  =  0  # 5 

ALT 

130 

XRATIO=1.0*XR*TIO 

ALT 

140 

YRATIO=i.0/K  RATIO 

ALT 

150 

KOUNT=0 

ALT 

160 

DO  30  J=1,NVSPR 

ALT 

170 

I FC  RAT  IOC  J) • LE • XRATIO) GO  TO  20 

ALT 

180 

S SPRING CJ) =XRATIO*QLOSPRC J) 

ALT 

190 

<OUNT=KOUNT* 1 

ALT 

200 

GO  TO  30 

ALT 

210 

2C 

I FC  RAT  IOC  J)  •  GE • YRATIO)  GO  TO  30 

ALT 

220 

SSPRINGCj) =YRA  TIO^OLDSPRC J) 

ALT 

230 

KOUNT*  KOUNTfl 

ALT 

240 

3  C 

CONTINUE 

ALT 

250 

IFCKOUNT.N,-:.  0)GO  TO  50 

ALT 

260 

OO  40  J=1 » NY SPR 

ALT 

270 

4C 

SSPRINGCJ)  =CSS  PRINGCJ)-OLDSPRC  J)  ) /2.  0  ♦OLDSPRC  J) 

ALT 

280 

5  C 

DO  60  J=1,NVSPR 

ALT 

290 

SPRING  (J)=SS PRINGCJ) 

ALT 

300 

COMPCJ)=1,0/SSPRINGCJ) 

ALT 

310 

60 

CONTINUE 

ALT 

320 

PRINT  70 

ALT 

330 

7  0 

FORMAT (1H1,//2CX,76H  SINCE  THE  COST  FUNCTION  HAS 

INCREASED,  NEW  SP 

alt 

340 

1RING  RATES  HAVE  BEEN  COMPUTEO. //> 

ALT 

3  50 

PkINT  80 

ALT 

360 

bC 

FORMAT (/20X»  2H  J,8X,5H  KCJ),9X,8H  COMPCJ),/) 

ALT 

370 

PRINT  90,  CJ,  SPRING(J)  ,COMP(J)  ,  J=1,NVSPR) 

ALT 

380 

90 

FORMAT  (18X, 14,  2E16.6) 

ALT 

390 

ENO 

ALT 

400 
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Table  A-ll 

FORTRAN  Listing  of  Subroutine  RENORM 


SUBROUTINE  RENORM 

RENORMALIZATION  OF  THE  EXPERIMENTAL  AND  THEORETICAL  HOOES 


COHHON/1/  MUH,  I S TOP, NS T A  , NT ,NEXP, STEP, ITMAK , TOL , ITER  REN  5C 

COHHON/3/PNRAT (10),FUHAT(10) ,EOH£GS( 10) ,K VAR ( 20) » SPRI N6L ( 20) ,SPRIN  REN  60 

1SU(20>  ,EPHI(10C,10)  ,EPHIP<lQO,iQ),EFREG<iQ>,TFRECMiQ>  REN  70 

COMMON/ 4/ TOM  EG  S(  10)  ,TPH 1(100,10)  ,TPHIP(100*10)  REN  00 

COMMON/8/KN0RM,XSTA(100)  REN  90 

DATA  ( MOOE=l OH  MODE  ) , (NAME1=10H  EPHI  ) , (NAME2-10H  TPHI  REN  100 

1  l,<NAM£3  =  10H  EPHIP  )  ,  <NAME4  =  10H  TPHIP  )  REN  110 

DO  20  1=1 1  NE  XP  REN  120 

IF1EPHKKNORM,  Il.EQ.O.IGO  TG  20  REN  130 

FACT=1.0/£PHI< KNORM,I)  REN  140 

DO  10  J=1,NSTA  REN  150 

EPHl(J,I)=FACT*fcPHI(J,I>  REN  160 

EPHIP(J,I)=FACT*EPHIP«J,I)  REN  170 

1  CONTINUE  REN  180 

!  CONTINUE  REN  190 

DO  40  1=1 1 NT  REN  200 

IF(TPHI(KNORM,I).EQ.O.)GO  TO  40  REN  210 

FAGT=1.0/TPHI«KNORM,I)  REN  220 

DO  30  J=1,NSTA  REN  230 

TPHI(J,I)=FACT*TPHI(J,I)  REN  240 

TPHIP< J,I) =r AC7*TPhIP(J,I)  REN  250 

CONTINUE  REN  260 

CONTINUE  REN  270 

PRINT  60,  ITER  REN  280 

FORMAT (1H1,*  COMPARISON  OF  EXPERIMENTAL  MODES  TO  THEORETICAL  MODES  REN  290 

1  FOR  ITERATION  NUMBER* ,73/)  REN  300 

NL=  1  REN  310 

NN=NL*3  REN  320 

IF1NN.GT.NEXP1  NN=NEXP  REN  330 

PRINT  7C, (MODE  ,1, I=NL,NN)  REN  340 

2  FORMAT (10X,4(18X,A6,I2)  )  REN  350 

PRINT  80,  (NAME1,NAME2,I-NL,NN)  REN  360 

]  FORMAT  (3X , 2M  K,6X,6H  XSTA  ,  4  (6  X  ,  A6 , 6X  ,  A6) )  REN  370 

DO  90  J=1,NSTA  REN  380 

}  PRINT  100 , J, XS TA ( J) ,  ( EPHI U , I > , TPHI < J, I) , I*NL ,NN)  REN  390 

)  F0RHAT(1X,I4,2X,E12.5,4(2X,2E12.5))  REN  400 

NL=NL*4  REN  410 

IF1NL.LE.NEXPI GO  TO  50  REN  420 

2  ORINT  120  REN  430 

3  FORMAT <1H1,*  COMPARISON  OF  SLOPES  —  EXPERIMENTAL  TO  THEORETICAL*/  REN  440 

1)  REN  450 

NL= 1  REN  460 

NN=NL* 3  REN  470 

IF(NN.GT.NEXP)  NN=NEXP  REN  480 

PRINT  70, (MODE  ,1, I=NL,NN)  REN  490 

PRINT  60, (NAME  3»NAME4» I=NL,NN)  REN  500 
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(Cont 'd. ) 


00  130  J*1 »NST A  REN  510 

1 3 C  PRINT  100  ,J,XSU(J)  ,<EPNIP<J,I)  ,TPHlP(J,I),I=NL,NN)  REN  520 

Nl=NL*4  REN  530 

IF(NL.Lfc.NEXP) GO  TO  110  REN  540 

Z NO  REN  550 
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Table  A-12 

FORTRAN  Lilting  of  Subroutine  MYKL 


SUBROUTINE  MYKL  (FREQ* GAM , LI  ME ) 

MYKL  MOOIFIEO  TO  LIMIT  NUMBER  OF  INTERNAL  STATIONS  TO  100 

COMMON  FINK  (300) 

COMMON  A< 4, 4, 101),  SAP (4, 4), AP <4 ,4) , VlNY (4 , 4) , AL V(4 , 4) ,T(4,4)ttAL 

COMMON  A(4,4»300)*SAP(4,4)»AP(4»4) , WINV (4 ,4) , AL V(4 , 4) ,T (4,4),AL 
1  IT (4,4 ),TAP( 4, 4,100) ,V£C (4,101 ) *  ITEM (6,101) *  DATA ( 8 , 101) , II (300), IR 
1YT(4,4),TAP(4, 4, 100) , V£C ( 4, 300 ) ,ITEM(6,300) ,OATA(6,300) ,11 (300) ,IR 
2( 300) » OM( 309 ) , FUNC(300) ,R(3) ,KKK(100) , MODE (ICO) , JOINT (10 1) ,AL(4,4) 
2(30  0,  OM  (3  00  ),  FUN  C(  300)  ,R(3)  ,KKK(100)  ,  MODE  (100)  ,  JOINT  (300)  ,AL(4,4) 
3,  I&  ( 10  1) ,  PR9 T  (  4)  ,  HOL  (12) 

3,  16  (30  0)  ,PRMT(  4)  ,HOL(12) 

COMMON  ICON ( 10 ) , ICB (10) ,FPM(10,4, 4) ,FQM (10 , 4, 4) , VS AWE ( 4) , ARSTAR 
1(10,6,4),  ARP3  ( 4,4)  ,ARPA(4,  4)  ,  APR  (A,  4)  ,OANV( 2  *2 ) , DENY (2 »  2 

2)  ,THMAN(6,&)  ,6  MAN  (6,6)  , 3INV( 6  ,6)  ,RMUL(6,4) 


COMMON  14(101) 

COMMON  14(300 

COMMON  ITME  (5,lOl),OAAT  (7,101)  ,IETM  (5)  ,DTAA(7) 

COMMON  ITME  (6,250)  ,0AAT  (7,250)  ,  IETM(5)  ,0TAA(7) 

1C  ITnIN=1 
ILAF=1 
N  =  C 
NX=0 

2  0  N  =  N  ♦  1 
NX=NX+1 
00  30  1=1,5 

3 C  ITEM(I,N)=ITME(1,NX) 

00  4U  1=1,7 

4  C  0  AT  A  (I  ,N)  =DA  AT  (I, NX) 

I F»  LIME.EQ.l > G 0  TO  60 

H RITE (6,50)  (ITEM(1,N), 1*1,5), (0ATA(J,N) ,J=1,7) 
5C  FORMAT  (514, 4X,  7(  E13.5)) 

6 C  CONTINUE 

IF(ITEM(1,N)  )  7C  ,100 , 70 
7 C  ITEM(6,N)=ITEH(1,N) 

I  TEN  (1  ,N)  =N 
IF(N.EQ.1)GC  TO  20 

IF(ITEM(2,N)  ,EQ.ITEM(2,N-1))G0  TO  20 
00  80  1=1,6 
ITEH(I,N*1>  =  ITEM(I,N) 

80  I  TEM  (I  ,N)  =  IT  EM  ( I ,  N-l) 

I  TEN (1 ,N) =N 
ITEM(1,N*1)  =  N*1 
ITEH(4,N)=0 
30  90  J=1 , 7 
DATA  (J,N*1)  =  DATA(J,N) 

9  C  3  AT  A  ( J  »N)  =0«  0 

D  AT  A  (3  ,N)  =OATA  (3,N-1) 

N=Nt  1 
SO  TO  20 
100  DO  110  1=1,6 


MYK  40 
MYK  50 
MYK  60 
KYK  70 
MYK  80 
MYK  90 
MYK  100 
MYK  110 
MYK  120 
MYK  130 
MYK  140 
MYK  150 
MYK  160 
MYK  170 
MYK  180 
MYK  190 
MYK  200 
MYK  210 
MYK  220 
MYK  230 
MYK  240 
MYK  250 
MYK  260 
MYK  270 
MYK  280 
MYK  290 
MYK  300 
KYK  310 
MYK  320 
MYK  330 
MYK  340 
MYK  350 
MYK  360 
MYK  370 
MYK  380 
MYK  390 
MYK  400 
MYK  410 
MYK  420 
MYK  430 
MYK  440 
MYK  450 
MYK  460 
MYK  470 
MYK  480 
MYK  490 
MYK  500 
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Table  A-12 
(Cont 'd. ) 


I  TEM  (I  ,N+1 )= IT  EH( I, N) 

MYK  510 

110 

I  TEH  (I  ,N)=ITEM(1,N-1) 

MYK  520 

I  TEM  (1  ,N)  =N 

MYK  530 

I  TEM  (4  *N)  =0 

MYK  540 

DO  120  J= 1 ,7 

MYK  550 

DATA(J,M+1)  =  0ATA(J,N) 

MYK  560 

12  C 

J  AT  A  ( J  ,N)  =0.  0 

MYK  570 

DATA(3,N>=0ATA(3,N-1) 

MYK  560 

N  =  N*1 

MYK  590 

NN=N-1 

MYK  600 

M  =  N 

MYK  610 

DO  150  1  =  2, NN 

MYK  620 

M=I-1 

MYK  630 

D  AT  A  (8  ,N)  =0A  TA  (3 , 1)  -OAT  A  (3  ,N) 

MYK  640 

I  Ft  ITEH(2,N)  -I  TEH  (2,1))  13  0,140,130 

MYK  650 

13  C 

DATA(d,N)=G.  0 

MYK  660 

140 

DATA  (9 ,1)  =0*  0 

MYK  670 

15  C 

CONTINUE 

MYK  680 

DO  160  K=1 ,1  CO 

MYK  69G 

DO  160  1=1,4 

MYK  700 

OO  160  J=1 ,4 

MYK  710 

16C 

A  (1, J„K)  =  0.Q 

MYK  720 

KZ  =  Q 

MYK  730 

KOWT=l 

MYK  740 

I TLR=1 

MYK  750 

42=OAT  A(1,M) 

MYK  760 

IF(W2)  180,170,  180 

MYK  770 

170 

W  2  =  2 .5 

MYK  780 

13  C 

*2=<W2*3.  141593*2.0)**2 

MYK  790 

EPS=0ATA(2,H) 

MYK  600 

If (EPSI2QQ ,190 ,200 

MYK  810 

190 

EPS=. IE-4 

MYK  820 

20  0 

i  ANA=OATA(3,  H) 

MYK  83C 

IF(GAMA)  220,  210,220 

MYK  840 

210 

G  AH A  =  1 • 10 

MYK  850 

22  0 

GUMMA=1.* (GAMA-1.  ) v , 05 

MYK  860 

J  PbN0=  DAT  A (4 ,H ) 

MYK  870 

IF(UPBND)  240  ,230,240 

MYK  880 

23  C 

J  PbNO=  250 , 0 

MYK  890 

240 

UPbNU  =  UP8ND* 6.  283185 

MYK  900 

K  =  1 

MYK  910 

S  AM A=G  AHA 

MYK  920 

DO  333  1=  1, NN 

MYK  930 

IF (ITEM (4,1) -1) 250,280, 300 

MYK  940 

250 

A  (1,1,  K)  =  1 , 0 

MYK  950 

A  <2, 2, K)  =  1,0 

MYK  960 

A (3,1, K)=-0ATA (8, I) /DATA(1 ,1) 

MYK  970 

IF(OAT  A(1 , 1)  .  E  Q,  0 , 0 )  A  (  3 , 1  ,K)  =  0 ,0 

MYK  980 

DAT  A  (5, 1)  =0ATA  (5, 1)  757,  29  578 

MYK  990 

DATA(6,I)=DATA  (6 , 1) /5 7, 295 78 

MYK1000 
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Table  A-12 
(Cont  'd. ) 


I FI  IT£M(5 , I)  >260,260,270 

HYK1B10 

260 

A(1,2,K)  =  -DATA(8,I> 

HYK1020 

A  (3,2,K>  =  .5*0ATA(8,I>**2/0ATA(i,I> 

NYK1030 

IF  (OAT  All,  I)  .£Q,0.0)A(3,2,K)  -0.0 

HYK1040 

A(4,1,K)  =  -A(3,  2,K) 

HYK1050 

A  <4, 2,  K)  =  0ATA(  8, 1)  **37  I  6.  0*0  AT  A 1 1,1)  > 

NYK1060 

IF  (OAT  A 1 1,1)  .£G.Q.O>AC4,2,K>=0.0 

NYK1070 

270 

K=K*i 

NYK1080 

SO  TO  330 

NYK1090 

28  C 

A (3 , 1, K) =-0ATA (6,1) 

NYK1100 

I F(IT£M(5, I) >290,290,300 

HYK1110 

29C 

A(4,2,K)  =  -0ATA(5,I> 

HYK1120 

3  r.  c 

AK=K*1 

NYK1130 

0  AT  A  (5 , 1) =DATA (5, 1) /57. 295  78 

MYK1140 

0ATA(6,I)=DATA(6,  I>  /57.  29578 

HYK1150 

A (1,1,K>=1.0 

NYK1160 

A (1,1, KK) =1. 0 

HYK1170 

A (2,2, K) =1.0 

NYK1180 

A (2,2, KK) =1. 0 

HYK1190 

A (3 , 1, KK) *-0 AT  A (8, 1) /DATA (1, I) 

HYK1200 

IF(0ATA(1,1)  .EQ.O.O)A(3,1,KK)-0.0 

HYK1210 

A (3 ,3, K) =1 .0 

HYK1220 

A ( 3 , 3, KK) =  a.  0 

NYK1230 

A (4,4,K)=1.0 

MYK1240 

A (4 ,4,KK) =1. 0 

NYK1250 

I F  (  ITENI5 , 1)  >310,310,320 

NYK1260 

310 

A  (1, 2,  KK)  =-D  AT  Aid, I) 

MYK1270 

A (3,2,KK)=0ATA(8,I)**2*.5/0ATA (1,1) 

NYK1280 

IF(0ATA(1,I)  .£Q.0.0)A(3,2,KK)-0.0 

NYK1290 

A  ( 4 , 1,  KK)  =-A  ( 3 , 2 ,  KK ) 

HYK1300 

A (4,2, KK) =  GA TA (8, I) **3/ (6,0* DATA (1,1)) 

MYK1310 

I F (OAT  A (1 , 1) .EQ.0.0) A(  4, 2 , KK )  =  0 , 0 

HYK1320 

A  (4,3,  KK)  =  0A  TA  (8,1) 

NYK1330 

32  C 

<=K*2 

NYK1340 

33C 

CONTINUE 

HYK1350 

NST  A=K-1 

HYK1360 

00  340  1=1, NN 

NYK1370 

OATA(7,I)=OATA(7,I)/57.29578 

MYK1380 

DATA  (2 , 1) =0ATA (2,I)/386.4 

MYK1390 

340 

OAT  A  (4, 1)  =QATA  (4,  D/386.4 

NYK1400 

KORP=0 

NYK1410 

DO  360  1=1, NN 

HYK1420 

IF(IT£M(3,I)  -KORP  >  360,360,350 

NYK1430 

350 

KORP  =  ITEM  (3 , 1 ) 

MYK1440 

360 

CONTINUE 

NYK1450 

K  =  1 

NYK1460 

OO  390  1=1, NN 

NYK1470 

I F ( IT£M(4 , I) -1)370,380,380 

NYK1480 

37C 

I 1 (K)=IT£M (1,1) 

NYK1490 

16 ( K) = ITEM (5,1) 

NYK150Q 
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(Cont 'd. ) 


I  4C K)  =  ITEM  (4,1) 

IRCK)  =  K0RP-iT£M(3,l) 

IF(IT£H(3,I)  .LT.O)  IRCK)  =  -1 

<=KU 
30  TO  390 
3SC  <K=K*1 

1 1C  K)  = ITEM (1 ,  I  ) 

1 6C  K)  =  ITEM (6 ,  I ) 

I I  <  KK)  =11  <  K) 

I  6  (KK)  =I6CK) 

I  4 ( K)= ITEM (4 , 1 ) 

I  4CKK)  =14 ( K) 

IRCK)  =  KORP-ITEM(3  ,1) 

IF(ITEM(3,I) .LT.O)  IRCK)=-1 
I R  ( KK)  =IR  ( K) 

<  =  K  +  2  . 

39  C  CONTINUE 
NSDP=NSTA 
DO  400  K=1,NSTA 
I=I1CK> 

IF(IT£M(3,I>  1 4  10 , 400,  40  0 
4&C  CONTINUE 
30  TO  420 
41 C  NSTA=K-1 
420  □  IW  =  1.  0 
430  00  450  1=1,4 
DO  440  J=  1 ,4 
440  SAP  (I* J)  =  0.0 
450  S  AP ( I, I)  =  1 .Q 
460  J  NT  =  1 
NOR-fl 
K I AP=KORP 
47 C  *=1 
43  C  CONTINUE 
<S=K 

I  F  ( IRC  K) .  L  T.  0)  GO  TO  490 
IFC  IRC  KI+KIAP-KGRPJ  1110 ,49  0,1110 
490  1=1100 
N  F=  I 
J  1  =  I  4 1 

IFC  IRC  K)  •  GE«  0)  GO  TO  510 
I FC Jl- M) 500,  900,500 

50  0  IFCITEM(2,I)-ITLMC2,J1)>98Q,510,96O 
51 C  IFC ITLMC4, II -1)  520,540,540 
520  A  C1,3,K)=W2*0ATA(4,I) 

A  C1,4,K)  =  -W2*0ATA  C2 ,11 *DATAC8,  I) 

A  (2,4,K)  =  W2*0ATA(2,I> 

AC  3, 3,K)  =  1.Q4W 2*0ATA(4» 1) *AC3, 1,K) 

A  C3f4,K)  =  W2*DATAC2,I)*AC  3, 2, K) 

A  (4,  3,K)=0ATAC8,I)4H2*0ATA  C4 , 1 )  *A  C  4, 1  ,K> 


MYK1510 
NYK1520 
MYK1530 
MYK1540 
MYK155& 
MYK1560 
MYK1570 
MYK1580 
NYK1590 
MYK1600 
MYK1610 
MYK1620 
MYK1630 
MYK1640 
MYK1650 
MVK1660 
MYK1670 
MYK1680 
MYK1690 
MYK1700 
MYK1710 
NYK1720 
MYK1730 
MYK1740 
MYK1750 
MYK1760 
MYK1770 
HYK1780 
MYK1790 
MYK1600 
NYK1810 
MYK1820 
MYK1830 
MYK1840 
MYK1850 
MYK1860 
NYK1870 
MYK1880 
MYK1890 
MYK1900 
MYK1910 
NYK1920 
N YK1930 
MYK1940 
MYK1950 
.iYK196Q 
MYK1970 
MYK1980 
NYK1990 
MYK2000 


Table  A-12 
(Cont 'd. ) 


A  <4,4,K)  =  1.0*OA7AC2,I)*M2*A<4,2,K> 
IFCIT£H(5,I)  )5  40 *540,530 
53 0  A<4,3,K)=0.Q 
540  IF(l4<K>-3)670 ,590, 600 
55  C  N0RsN0R*-l 

00  560  J=l,4 
00  560  L=l,4 
56 C  APRC  L  ,  J)  =AP  CL  ,J) 

KQR-I6  (K) 

ICB(NDRi  =  K 
00  500  J=l,4 
00  570  L=l,4 
57C  SAPCL,  J)  =  0.l) 

53 C  SAP(J,J)=l.fl 
00  TO  670 

59 C  IF(I4(K-l>-3)550,670,550 
60  C  IF<I4(K-1)-4)61C,670,61Q 
61 C  <KE£P=K 

00  620  J=1  *4 
00  620  L=l,4 
62 C  ARPB(L,J)=APCL,J> 

ksi=nsta«-i 

00  640  0=1,4 
00  630  L  =  l,4 

63  C  SAPCL, J)=Q.Q 

64  G  SAP  ( J,  J)=1.Q 

00  650  LX=KS 1 , NSUP 
IT=I1(LX) 

I  F  ( IT£M(2,IT)-  KUR) 650 , 660 , 650 
65 C  CONTINUE 

NR1TEC6,790)  KUR 
50  TO  2190 
660  C=LX 

I  CON  (NOR)  =K 
50  TO  480 
67C  00  b90  Lsl, 4 
00  690  0=1,4 
AP(L , J)=Q  • 

00  690  IC  =  1,  4 

APCL,J)=AP(L ,J)+A(L,IC,K)*SAPCIC,J)/OIV 
IF(AP(L,J)-1,Q£+19) 69 0,680*680 
66  C  0 Itfsoi OE  *5 
60  TO  430 
690  CONTINUE 

00  700  L=1 ,4 
00  700  J=1 ,4 
70  0  SAPCL,  J)  =  AP(L,J) 

IF(J1-M)710,  720,710 

710  IF(IT£MC2,I)-ITEM(2,Ji))720,  1110,720 
720  ALU,l)=SAPCl,3) 


MYK201Q 
HYK2020 
HYK2030 
NYK2040 
HYK2050 
HYK2060 
HYK2070 
HYK2O0O 
MYK2090 
NYK2100 
MVK2110 
MYK2120 
HYK2130 
MYK2140 
HYK2150 
HYK2160 
NYK2170 
HYK210O 
NYK2190 
MYK2200 
MYK221Q 
HYK2220 
HYK223Q 
MYK2240 
HYK2250 
MYK2260 
NYK2270 
NYK220O 
NYK2290 
HYK2300 
MYK2310 
HYK2320 
NYK2330 
NYK2340 
MYK2350 
NYK2360 
NYK2370 
MYK230O 
MYK2390 
NVK24Q  0 
HYK2410 
MYK2420 
NYK2430 
HYK2440 
NYK2450 
HYK2460 
HYK2470 
MYK2480 
NYK2490 
MYK2500 
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$■ 

• 

T*Lle  A-12 

(Cost 'i  ) 

Al<i,2)=SAP<l, 4) 

j 

KYKZ510 

Al<2,l)=SAP<2,3) 

MYK2520 

AL(2,2)=SAP(2*  4) 

HVK253Q 

IF4KIAP)  730*  11  30,730 

MYK254D 

73  C 

0£T  W=SAP<3,3)‘e  SAP  <4,4l*SAF  (3 , 4  > *SAP ( 4 , 3) 

NYK255Q 

IF(Q£T¥)740,  2220,740 

HYK2560 

74C 

V INV (1 , 1) =  SAP4 4,4)/0ETY 

MYK2570 

¥INV(2,i>=SAP4  4,3)/0£TYM-1.0) 

HYK2580 

VINV(1,2)  =SAP<  3 , 4) /OET ¥•<« 1. 0? 

MYK2590 

VINV(2,2) =SAP( 3,3 l/OET  V 

MYK2600 

ALVd,l)=AL(l,  1)  *  VINO ( 1, 1)  *Ai.(  1, 2)  *tf  1 NVC  2,  li 

MYK2610  1 

AlY  (1,2)  =  AK1, 1)*VINV11,2) ♦ALfl,2)*YINV(2,2) 

XYKZ620  l 

ALY  (2, 1)=AL(  2,  1)*  VlNVd*  1)  ♦AL  (  2»2)*V  INV12, 1) 

MYK2630  | 

A LO  (2,2)  =  AL( 2, i)* VlNV(l,2) *AL ( 2 , 2) *YINV (2 , 2) 

MYK264C  | 

DO  750  K2  =  2»  NS  UP 

MYK2650  | 

KU=K2 

MYK2660  ? 

I  F(  1TEM(2 , 1)  -I  6  (K2))  750, 770,  75G 

HYK2670 

75  C 

CONTINUE 

MYK2680 

HRI TE( 6,760) 16 (KQ) 

HYK2690  5 

76C 

FORMAT (25H  NO  APPENOAGE  STATION  FORi3) 

MYK2700  1 

GO  TO  2190 

MYK2710 

77  C 

IQ=IKKQ) 

NYK2720  \ 

IFUTEH(4,ia)-2)780,80Q,7  8Q 

HYK2730  5 

78C 

YRI  T£(  6,7  90)  16  (KQ) 

NYK2740  1 

79C 

FORMAT (8H  ST  AT I0NI3.28H  IS  NOT  AN  APPENDAGE  STATION) 

NYK2750 

GO  TO  2190 

MYK2760  ] 

80  0 

I T=1»3*ITEH(  5, IQ) ♦ITEN(5«I) 

MYK2770  1 

; 

T  (1,1)  =0.0 

HYK2780 

[ 

T  (1,2)  =0.0 

HYK2790  ! 

T  (2,1)  =0.0 

KYK280C  j 

; 

T  (2,2)  =0.0 

HVK2810  ; 

RAO*SQRT( (COS( OAT  A(7,  IQ)  ) ) **2* (SIN (D ATA (7 , IQ) ) *COS (DATA ( 6, IQ) ) ) **2 

MYK2820 

i 

1) 

MYK2830  i 

i 

I F( RAO ) 820 ,8  20 ,810 

MYK2940  j 

( 

sic 

CL=(CGS(OATA(7 , IQ) ) *CQS ( DATA (6 , IQ) )) /RAO 

MYK2850 

i 

CU=SIN(DATA(  7,IC  ))  *COS(OAT  A!  6,  IQ)  )  /RAD 

MYK2860 

i 

OV=CQS(OATA(  7,  IQ)  )*SIN(OAT  A(  6,  IQ)) /RAO 

MYX28  73 

t 

j  O  TO  8  oO 

MYK2880 

? 

t 

820 

CL=  0.0 

MYK2890 

i 

CU=  SIN  (OAT A(  5,  IQ)  ) 

MTK290  0 

CV  =  COS (OAT A(  5,  IQ) ) 

MYK2910 

• 

831 

GO  TO  (840,850  ,860, 870, 880, 690, 900, 910, 920)*IT 

NYK292Q 

t 

840 

T  (1,1)  =CL/SQRT(CL**2«>CU**2) 

MYK2930 

1 

T  (2,2)  =Cl./SQRT  (CL**?*CY**2) 

MYK2940 

i 

T  (2,2)  =ABS  (T  (2,2)) 

MYK2950 

i 

> 

JO  TO  930 

NYK2960 

650 

T  (1,1)  =CU 

HYK2970 

GO  TO  930 

MYK2980 

86T 

T  (2,1)  =-CV 

NYK2990 

GO  TO  930 

MYK3000 

Table  A-12 
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87  0 

T  <1, 1)  =-SQRT  (1.0-CL**2) 

HYK3010 

GO  TO  930 

NYK3020 

880 

T  Cl,  11  =CL 

NYK353Q 

GO  TO  930 

NYK3040 

890 

GO  TO  2200 

NYK3050 

90  C 

T  (i»  2)  =SQRT(  I.*  C-CL**2) 

MYK3060 

GO  TO  930 

HYK3070 

91C 

60  TO  2200 

HYK3060 

92  C 

T  (1,1)  =CL 

HYK3090 

93  C 

ALVT (1 ,1)  =AlV(1,1)*T(1,1)*ALV(1,2)*T  (1,2) 

NYK3100 

ALVT  (1 ,2)  =AL  V(l,l)*T(2,l)+ALVtl,2)*T  (2,2) 

NYK3110 

ALVT  (2,1)  sAL  V(  2  » 1)*T(1, 1)  ♦ALV(2,2)  *T  (1,2) 

NYK312Q 

ALVT(2,2)=ALV(2,l)*T(2,l)tALVf2,2)*T  (2,2) 

NYK3130 

A (1 ,3,KQ) -T( 1, i)*ALVT(l,l) +T ( 1 ,  2)*AL  VT (2,1) 

MYK3140 

A  (1,4,  Ml)  =T (  1,  1) *AL VT  (1 »  2 )  +T  (1 , 2)  *AL  VT  (2,2) 

HYK3150 

A  (2,  3,  KQ)  =T(  2,  1)«ALVT(1,1)  *T  (2 , 2)»AL  VT  (2,1) 

HYK3160 

A  (2,4, KQ)  =T(  2,  1) * AL4T(1 ,2)  ♦!  (2 ,2) *AL VT (2,2) 

HYK3170 

94  C 

TAP  (1,1, JNT)  =VINV(l,l)*T(i,l)  +  VINV(l  ,2)*T(1*2) 

NYK3180 

T  AP ( 1 , 2, JNT) =VINV(l,l)*T(2,i)+VINV(l,2)*T(2, 2) 

MYK3190 

TAP  (2,1,  JNT)  =VINV(2,1)+T(1,1)+VINV(2,2)*T(1#2) 

NYK3200 

TAP (2, 2, JNT) =VINV(2,1)*T(2,1)*VINV(2,2)*T(2*2) 

MYK3216 

JOINT(K)=JNT 

HYK3220 

KKK ( JNT) =KQ 

HYK323Q 

JNT-JNT+1 

NYK324Q 

950 

DO  970  ISP=1,4 

NYK3250 

DO  960  JSP=1 ,4 

HYK3260 

960 

SAP(ISP,JSP>=0.Q 

NYK3270 

970 

SAP  (ISP, ISP)  =1.0 

NYK3290 

GO  TO  1110 

NYK3290 

98  C 

DO  990  J* i ,4 

NYK3300 

DO  990  L=1 ,4 

HYK3310 

990 

ARP  A  (L  ,  J)  =AP(L  ,J) 

HYK3320 

DO  1000  1  =  1,2 

MYK3330 

1 1=1+2 

NYK3340 

DO  1000  J  =  l,  2 

NYK3350 

1000 

DANV(I, J)*ARPB(II» J)*ARPA(XZ»J) 

NYK3360 

IF(ITEH(5,MF).NE.O)  OANV  (2,2)  =  1.0/01  V 

NYK3370 

DEDET=1.0/(DAN  V  (1 ,1)  *DANV  (2,  2) -OAN  V(  1 , 2)  *DA»V  (2, 1)  ) 

HYK3380 

DEN  V  (1 ,1) =GANV (2,2)*OEDET 

NYK3390 

DEN  V  (2 ,2)  =OANV  (1,1)*DEDET 

NYK3400 

DENV  (1 ,2)  =-DAN  V  (1 ,2)*QEOET 

HYK3410 

DENV (2 ,1) =-DANV(2,l)*OEDET 

NYK3420 

DO  1010  J=l,  6 

HYK3430 

DO  1010  1=1,6 

NYK3440 

1010 

T  HMAN( I, J) =0.6 

NYK3450 

DO  1020  LL=1 ,5,2 

NYK3460 

DO  1020  J  =  l,  2 

MYK3470 

JJ=J*LL-1 

HYK3480 

DO  1020  1=1,2 

HYK3490 

U=I+LL-1 

NY  <3500 
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1020  THNANCII,JJ)  =DENSCI,J> 

3MAMC1,1>=-ARPA<3,1)-ARPBC  3,  1) 

BHAN  Cl ,2) =-ARP  AC 3 ,2) -ARPB 1 3, 2) 
BMANC2,l)=-ARPAC4,i)-ARPB(4,  1) 
3MNC2,2)=-ARPAC4,2)-ARP8C4,2) 
3MANC1,3)=ARPB (1, If -ARPA (1,1) 

SHAN  (1 , 4)  =  ARPB  <1 , 2)  -ARPA  (1 ,2 ) 
eMAN(2,3)=ARP8C2,l)-  ARP  A  (2,1) 

BHAN  C2  ,4) = ARP8 (2 , 2) -ARPA (2 ,2 ) 
BHANCt>5)=-BHANCl,3> 

BMANCl*6)=-BMANCl»4) 

8HANC,»5)=-BMANC2,3) 

BHA4<2,6)=-BMANC2,4> 

BHAN  C3,3)=-ARPA(3»1) 

BHAN  C3 ,4) =-ARP  AC  3 ,2) 

BHANC4,3)=-ARPAC4,i> 

3HANC4,4)=-ARP A(4,2) 

8HANC3,5>=-ARPBC3,il 

BHANi'.3,fc>=-ARPBC3,2> 

BMAN(4,5)=-ARP  6C4,1> 

8MAN(4,6) =-ARPB<4,2) 

BMAN (5  ,3) =-1.0 
3HAN  (5.5) =  1.0 
BHAN  Co  *4) =-1.0 
BHAN  C6 , 6)  =  1.0 
OO  1030  1=1,6 
JO  1030  J=l, 6 
dINVCI , J) =0. 0 
00  1030  MM=1 , 6 

103f  8  INS  Cl ,  J)  =BI  NS ( I, J) ♦BHAN ( I ,NM) *THH AN < MM, J) 
00  1040  J=l, 4 
00  1040  1  =  1,6 

1040  RHUL  (I  ,J1  =0.  0 
00  1050  J  =  l,  2 
OO  1050  1  =  1,4 

1050  RHUL  (I ,  J)  ®-ARP B (I  , J) 

OO  1060  J=  3,  4 
00  1060  1=1,2 

106  0  RMUL Cl ,J) =  -ARP  BCI ,J)-ARPA< I, J) 

OO  1070  J  =  3,  4 
00  1070  1=3,4 

1 07  C  RHUL (I , J) =- ARP BCI , J) 

00  1080  1=3,4 
1 1  =  1*2 

OO  106  0  J  =  3,  4 

108  0  R'NUL  Cl  I,  J)  =- ARPA  C  I,  J> 

OO  1090  J=l, 4 
OO  1090  1=1,6 
ARSTARCNOR,! ,J)=0.0 
00  1090  NM=i ,6 


MYK3510 

HYK3520 

HYK3530 

HYK3540 

HYK3550 

HYK3560 

MYK3570 

NYK3560 

HYK3590 

HYK3600 

MYK3610 

MYK3620 

HYK3630 

HYK3640 

HYK3650 

HYK3660 

HYK3670 

HYK3660 

HYK3690 

HYK3700 

HYK3710 

MYK3720 

HYK3730 

HYK3740 

HYK3750 

HYX3760 

HYK3770 

NYK3780 

MYK3790 

HYK3800 

MYK3810 

NYK3620 

MYK3830 

MYK3840 

HYK3650 

HYK3860 

HYK3870 

MYK3680 

HYK3890 

HYK3900 

HYK3910 

MYK39Z0 

MYK3930 

MYK3940 

NYK3950 

HYK3960 

HYK3970 

HYK3960 

NYK3990 

HYK4000 
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109  0  4 RS TAR (NOR, I ,  J  )  =  ARSTAR(  NOR, I ,  J  )  t-BINY  ( I  ,MH)  *RMUl  (MN,  J) 

00  1100  J=l,4 
00  1100  1  =  1,4 
5  AP ( I, J) =0  *  Q 
00  1100  HM=1  f 4 

HOC  S  AP  <  If  J)  =  SAP  (I  ,J)  ♦ARSTARCNOR.I  ,MH>  *APR(MH,  J) 

<=KKEEP 
<=<♦•1 
iO  TO  480 
1 11 C  K=K*1 

IF(K#L£»NSTA)GO  TO  480 
IF(KIAP) 480,  480,1120 
1120  <IAP=KIAP-1 
60  TO  470 
1130  I 2N*IT£M(2 ,M) 

<KK(JNT)=1 
JOINT  ( K)  =  JNT 
HOl/E  (JNT)  =ITEM  (5,1)*1 
IF( I2N-7) 114 Of  2240,2240 
1 14 C  IF(I2N)2190, 2190, 1150 

1 15 C  50  TO  (1160, 119G, 1200,  123  0,1240,12  50) ,I2N 
1160  IF(ITEM($,1)  )1180, 1180, 1170 
1170  AP(2,4)=1.0/OIV 

110  0  ?  UNC  (I TER)  =A P<  1 ,3)* AP (2 » 4)  **AP(  1,  4)  *AP  (2, 3) 

5  0  TO  1260 

119  0  FUNC  (I  TER) =AP< 3 , 3 >* AP<4,4) -AP ( 3, 4> *AP ( 4, 3) 

50  TO  1260 

12!?  C  IF(ITEN(5,1)  )1  220  ,1220, 1210 
1  21  C  AP(4,2)=1»  O/OIV 

122  0  FUNC  (ITER)  =AP<3,1)#AP(4,2)”AP*3,2)*AP(4,1) 

GO  TO  1260 

123  0  FUNC  (I TER)  *AP(1,3)*AP<4»4)  «AP(  1,4)  *AP  (4, 3) 

50  TO  1260 

1240  FUNC (ITER) =AP( 3,2)*AP<4,3) -AP(4,2) *AP (3, 3) 

SO  TO  1260 

1  250  FUNC (ITER) xAP4 1, 2)*AP(4, 3) -A P (1 ,3) *AP  (4, 2) 

126C  0M(ITER)  =  SQRT<M2) 

PRNT (1)=ITER 

PRNT(2)=OMtIT£R)/6.  283185 
PRNT  (3)=FUNC(ITER> 

GO  TO  (1270,1380)  ,ILAF 
1270  IF4KONT.GT.15GO  TO  .330 
1280  I F ( ITHIN. LT« 3) GO  TO  1300 
OM(ITER*1)=OM<  ITE3)*GU)  ^A 
I F  (OM(  ITER+l)  •  &£•  THIS)  U  TO  1290 
60  TO  1310 
1290  KOWT*l 
ITHlNsl 

1 30  C  0M(  ITER+1)  =3N<  ITER)  *GANA 
1310  I7ER=IT£R*1 


HYK4310 
NYK4020 
NYK40  30 
HYK4040 
NYK4050 
HYK4060 
HYK40  70 
HYK4080 
NYK4090 
NYK4100 
NYK4110 
NYK4120 
MYK4130 
NYK4140 
HYK4150 
NYK4160 
NYK4170 
HYK4180 
NYK4190 
NYK4200 
NYK4210 
NVK4220 
HYK4230 
NYK4240 
HYK4250 
KYK4260 
NYK4270 
NYK4280 
NYK4290 
HYK4300 
HYK4310 
NYK4320 
HVK4330 
HYK4340 
HYK435Q 
NYK4360 
HYK4370 
NYK4360 
NYK4390 
HYK4400 
MYK4410 
HYK4«,20 
HVK4430 
MYK4440 
MYK4450 
HYK4460 
HVK4470 
MYK4480 
HYK4490 
HYK4500 
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I F ( I  Ttk-298) 1320,2190,2190 

MYK4510 

1  32  C 

IF(OM(IT£R),GT  «uP6NU)  GO  TO  2190 

MYK452C 

<OWT=KOHT+l 

HYK4530 

*2=0M(IT£R)**2 

HYK4540 

I F  (  H2«  £G«  .0  •  j )  G  0  TO  2190 

MYK4550 

GO  TO  420 

MYK4560 

1  33  C 

I F  C  (FUNC(IUR)  /FuNCCITER-l))  .GT.Q.S)  GO  TO  1350 

MYK4570 

I  THIN*! 

HYK4580 

13<,r 

I  L£>F=2 

MYK45  9Q 

SINLO=FUNC  (I  TtR-1) 

MYK4630 

5  MX  =  AdS(SlNL  O) 

MYK4610 

SlNHl=FUNC(ITtR) 

1YK462C 

d IX=  4BS (S IN9 I) 

MYK4630 

GOLO=OM(ITFR-l ) 

MY  <4640 

GUHl=0'1(ITtR) 

NYK4650 

GO  TO  141 C 

HYK466C 

1  35  C 

I F  ( ITH IN. £Q«  3) GC  TO  1280 

MY  <46  70 

FINK  (I  TER)  =- UNO  <ITER)-FJNC  (ITER-1) 

MYK4680 

IF(  KOHT.LT.3)GO  TO  1280 

MYK4690 

IF< (FINK(IT£R) /FINK (ITER- 1))  .LC.Q.G)  I THlN=ITHIN+l 

MYK470G 

GO  TO  (1280,  136C,  1370),ITHIN 

MYK4710 

1  3t  C 

THAT =OM ( I TE^-1 ) 

MYK4720 

TH£H=FUNC(ITcR-l) 

MYK473Q 

GO  TO  12b  C 

MYK474Q 

1  3  7  C 

THIS=GM(IT£<) 

MYK4750 

DM<ITER)=THAT 

HYK4760 

FUNC(ITtR) =T  H£  M 

MYK4770 

GO  TO  128 C 

MYK4780 

1  33  C 

IF(FUNC(ITER)/SINLO) 1390 , 1390, 14CC 

MYK4790 

139C 

SINHI=FUNC(IT£R) 

KYK4800 

G  OR l  =  OM( I T  tR ) 

MYK4810 

GO  TO  1413 

MYK4820 

145  C 

3INLO=FUNC(IT£k) 

MYK4830 

GOLO=OM(lTER) 

MYK4840 

1  41  C 

I  F  ( KZ,  l  E*  3)  S O  TO  1420 

HYK4850 

OM(ITERU)  =(  SINhI*GOLO-SINLO*GOHI)  /  (  S  INHI-S I NL O) 

MYK4860 

OH (  I T£ R+ 1 )  =  A  BS  ( O H  ( I T £ R ♦  1 )  ) 

MYK4870 

GO  TO  1430 

MYK48  30 

142C 

0 M (  ITEK4-1)  =(  GUHltGOLO)  *.  5 

MYK4890 

I  F ( KZ»  EG»  0 ) 5  Q  TC  1440 

HYK4900 

1431 

CONTINUE 

MYK4910 

IF<  ABS  (1. 0-(OM  UTER+1) /OM(  ITER) ) )  .LE.fcPSJGO  TO  1460 

MYK492C 

1  44  C 

KZ-KZ*1 

MYK493C 

IF(KZ-16)  1310,  131  C,  1450 

HYK494D 

1  45  C 

KOWT=l 

HYK4950 

KZ=  0 

MY  K 4 9 6 0 

I  Tn IN=  1 

MYK497C 

I  L  6F=1 

MYK498C 

OH(  IT£R)-GOi  I 

MYK4990 

FUNC(ITER) =3 INhl 

MYK5000 

15/ 
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£0  TO  1260 

HYK5010 

146C 

S  AM 80=  ASS  (FJNC  (ITER) ) 

NYK5020 

IF(SANBO-BIX  11 470, 1470, 1450 

HYK50  30 

147  C 

IF(SAHBO-SMX) 1480,1460, 1450 

NYK5040 

1461 

OMEG=ON(ITER> 

MYK5050 

I F ( NOR. Eft. C> GO  TO  1530 

NYK5060 

00  1520  LAP=1,  NOR 

HYK50  70 

30  1500  J=l,  4 

MYK5080 

00  1490  1  =  1,4 

HYK5090 

F  PH  CLAP,  I ,  J)  =0.0 

MYK5100 

1  49  C 

FQM(LAP,I,  J)  =0  .0 

NYK5110 

FPM  (LAP,  J ,  J)  =1.0 

MYK5120 

150  C 

F  QH  (LA  P,  J ,  J)  =1.0 

NYK5130 

00  151C  1  =  1,2 

NYK5140 

1 1  =  I  *-4 

NYK5150 

30  1510  J=l, 4 

MYK5160 

FQ/1  (LAP,  I ,  J)  =ARSTAR(LAP,II,J) 

MYK5170 

1510 

FPM (LAP, I, J)  =FPM(LAP,I,  J) - ARST AR (LAP , 1 1, J) 

MYK5180 

1520 

CONTINUE 

MYK5190 

1 53  C 

CONTINUE 

MYK5200 

<z=o 

HYK5210 

SO  TO  <1540, 1589-1620, 1660,1680, 1700)  ,I2N 

MYK5220 

1  54  C 

I F  ( IT£M(5 , 1)  )155(  ,1550,1560 

MYK5230 

155  0 

V EC  ( 3,  1) =- A3  (1  ,4)/AP(l,3) 

NYK52  40 

VEO<4,1)=1.0 

MYK5250 

CO  TO  1570 

MYK5260 

1560 

I/EC  (3,1)=1«0 

HYK5270 

VEC (4, 11=0.0 

MYK528Q 

157C 

l/EC(l,  1)  =  0.0 

MYK5290 

i/EC  (2,  1)  =  0.0 

MYK5300 

GO  TO  1720 

MYK531Q 

158  0 

IF(ITEM(5,1>  )1590  ,1590,160  0 

NYK5320 

1590 

l/EC €  3,  1)  =  - AP  (3  ,4)  /AP<3,3) 

HYK5330 

I/EC  (4,  1)  =  1,0 

MYK5340 

CO  TO  1610 

NYK5350 

160  C 

VEC(3, 1>=1.0 

MYK5360 

I/EC  (4,  1)*0 

MYX5370 

1610 

l/EC  (1,  1)  =  0 

HYK5380 

VEC  ( 2, 1)  =  0 • 0 

NYK5390 

CO  TO  1720 

MYK5400 

1 62  C 

IF  (ITEN(5,1)  11630  ,1630,1640 

NYK5410 

1  63C 

VEC ( 1, 1)=»A9 (3 ,2) /AP(3, 1) 

MY  K5420 

VEC  (2, l)  =  i.O 

MYK5430 

CO  TO  1650 

MYK5440 

1640 

l/EC  (1, 1)  =  1.0 

MYK5450 

VEC  ( 2,  1)  =  0.0 

MYK5460 

1 65C 

VEC  (3,  1)  =  Q»0 

MYK5470 

VEC  (4,  11  =  0.0 

MYK5460 

SO  TO  1720 

MYK5490 

1660 

I F( ITEH(5 , 1)  )1 670 ,1670, 2240 

MYK5500 

158 
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1 67 C  VEC  (1*  11*0.0 
VEC  (2,  11*0*0 

VEC (3,  1)=-AP  (i  ,41  ZAP (1,3) 

VEC44, i)=1.0 
SO  TO  1720 

1630  IF(ITEMC5,1) )1 690,1690,2240 
169C  V  EC  4 1, 1)  =  0. 0 

VEC42,1J*-A:>  (3  ,3)  /AP(3,2) 

V  EC ( 3, 1) =1 .0 
VE'C4fl)&0.Q 
GO  TO  1720 

i  70  G  I F ( ITEK(5 , 11  >1 710  ,1710 , 2240 
171C  VECil, 11=0.0 

VEC  (2, 1)=-AP (4 ,3) /AP44, 2) 

VECC3,  11  =  1.0 

wee  1 4*  d=o.o 

1 72  C  M  SM-0 

00  1870  K=2,KS 
1=1100 

I F (I4( K) «3) 1850 ,1730,1820 
1 73 C  IF(I4(K-1)-3)1850, 1740, 1850 
1 74C  NSH-NSHfl 

JO  1750  J*l,  4 
1750  VSAVE4J)  =  VEC(J,K-1) 

DO  1760  J  =  l,  4 
VEC4  J,  K)  *0 .0 
DO  1760  HH=1 , 4 

1760  VEC(J,K)  =  VEC(J,K)+FPM{NSH,J,MM)*Y$AVE(Mi) 
KL=ICON(NSh) 

DO  1770  J=l»  4 
W  EC  C  J,  KL)  =3.  0 
DO  1770  NM=1 ,4 

1  77  C  VECCJ.KL)  =  VEC4  J,KL)  ♦FQHiNSH,  J,  MM)  ♦  VS  A  VE  ( MMI 
1730  <L=Kl*l 

I F( KL. GT • NSJPI GO  TO  1810 
1=11  (KLI 

IFd.EQ.IICKL-lllGO  TO  1790 
I F(ITEM(2, II -ITEM (2,1-1 >1  1810,  1790,1810 
1  79 C  JO  1800  J  =  l,  4 

V  EC  ( J, KL)  =0.  0 
DO  1800  MM=i ,4 

180  C  V  EC  4  J, KL)  =VEC4 J,KL)  *A  ( J  ,  MM  ,KL- II  *  VEC  (MM,KL-1) 
SO  TO  1780 
1810  CONTINUE 

SO  TO  1870 

1820  IF(I4(K-1I-4I1850 ,1830,1850 
1830  DO  1840  J=l,  4 

V  EC  4 J, K!  =  0 .0 
DO  1840  MH=1 ,4 

1840  VEC4J,K)  =  VEC  ( J  ,  K)  +ARSTAR i NSM , J , MM)  *V SAVE (MM) 


MYK5510 
HYK5520 
HYK5530 
MYK5540 
MYK5550 
MYK5560 
HYK5570 
MYK5580 
MYK5590 
MYK5600 
MYK5610 
MYK5620 
MYK5630 
MYK5640 
MYK5650 
HYK5660 
MYK5670 
MYK5680 
MYK5690 
MYK5700 
MYK5710 
MYK5720 
MYK5730 
HYK5740 
MYK5750 
MYK5760 
MYK5770 
MVK5780 
MYK5790 
HYK5800 
MYK5610 
NYK5820 
MVK583C 
MYK5840 
MYK5850 
MYK5860 
MYK5870 
NYK5880 
MYK5890 
MYK5900 
MYK5910 
MYK5920 
MY  <5930 
MYK5940 
MYK5950 
MY  <5960 
MYK5970 
MYK5980 
MYK599C 
MYK6000 
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GO  TO  1870 
1850  JO  I860  J=l,  4 
VEC  ( J,  K)  =  0 .0 
00  1860  MM=1,4 

186C  ^ EC (J, K)=VEC  (J ,K) +A  ( J,  KN,  K-l)  *  VE  C(  MM  ,  K-l) 

187C  CONTINUE 

I  F  (KORP)  2  010  ,2613,1880 
188  C  KZAP-l 

1880  JO  1990  K=KS,NSTA 
I=I1(K) 

I FC ITEM62 , 1)  -I  TEN  (2,1-1 1  )  1910,1900,1910 
190  0  I F  (  IR(  K)  KIAP-  KORP)  1990 ,1970, 1990 
1910  IF(IR(K)*KIAP-KORP>  1990,1920,1990 
192C  OO  1930  <2=1 ,NSOP 
<Q=K2 

IF(ITEM(2,I) -I  6 (KQ)) 19 30, 1940,  1930 
1 93  C  CONTINUE 

GO  TO  2190 
1941  *60(1,0  =  0.0 
*EC  <2,  0  =  0.0 
00  1950  J 1=1 , JNT 
J  =  Jl 

I F( KKK ( Jl) -KQ) 1950,1960,1950 
1 95 f  CONTINUE 

196  6  VtC  ( 3,  K)  =  T  AP (1 , 1 , J) »V£C ( 3 , KQ) ♦ T AP ( 1, 2 , J) • VEC ( 4 ,<Q) 
MOU£(J)=IT£M  (5,1)  +1 

VEC (4, K)  =  TAP  (2 ,1,J)*V£C(3»KQH’TAP(2*2,J)  *  VtC  t  4 ,  KQ) 
GO  TO  1990 
1 97 (  JO  1980  1=1,4 
VEC.  (I,  0  =  0.0 
00  1980  J  =  i,  4 

1 98  C  VEC<I,K)  =  VEC(I,K)  ♦Ad,  J,K-1)  *VEC(J,K-1) 

1996  CONTINUE 


MYK601I 

NYK60  2I 

MYK60  3I 

MYK604I 

MYK605. 

MYK606I 

MYK6071 

MY  K6Q  8( 

MYK609( 

MYK610C 

MYK611C 

MYK612C 

MYK613C 

MYK614(i 

MYK61 5ti 

MYK616G 

MYK6170 

MYK618T 

MYK6196 

MYK620( 

MYK62K 

MYK622( 

MYK623( 

MYK62  4( 

MYK625( 

MYK626I 

MY  K627( 

MYK6281 

MYK629( 

MYK630I 

MYK631J 

MYK632) 

MYK633I 


2010 


203  C 
2  04  C 


2  07  0 
208  C 


I F(KIAP-KORP >2000,2010, 20 00 
KIAP=KIAP«-1 
50  TO  1890 
5  AH  =  G.  0 

OO  2020  K  =  l, NS  UP 
KN=K 

I  F(  ITEM(4,M)  -16(0)  2020,20  30,2  020 

CONTINUE 

SO  TO  2080 

I F(ITEM(5,KN)-1)  2040,20  5  0, 20  50 
a=VEC(4,KN) 

GO  TO  2060 
i3  =  VEC(3,KN) 

OO  2C70  K  =  l, NS  UP 
JO  2070  J  =  1,  4 
V  EC  ( J,  K)  =VEC(J,K)  /8 
00  2090  K  =  1,  NSUP 


MYK634I 

MYK635I 

MYK636I 

MYK637I 

MYK638I 

MYK639I 

MYK640< 

MYK641I 

MYK642I 

MYK643! 

MYK644I 

MYK645I 

MYK646I 

MYK647I 

MYK648I 

MYK649I 

MYK650I 


f 


Table  A-12 
(Cont 'd. ) 


1=11(0 

20 9 C  GAM  =  GAM*OATA  (4 , 1)  *V£C  (  3,  K )  **  2> DATA  (2 , 1 ) *  VEC <4  , K>  **2 
GK=SAM*OMEG**2 
I  F  ( NOR) 210  0, 212C,2100 
210  C  J U&= JNT+NOR 

<«<JUG)  =  KKK(JNT) 

M ODE (JUG) =M00£ (JNT) 

JU1 =JU6*1 
Jl=0 

00  2110  J= JNT, JUi 
Jl  =  Jl«-1 
<  KK  ( J)  =IC8  ( Jl) 

2 11 C  MOOt(J)=MOOE (JUG) 

JNT  =  JUo 
21cf  CONTINUE 

00  2170  J  J  =  1 ,  J  NT 
<Q=KKK  (JJ) 

I  Q=  I6(  KQ) 

I I=MOOE(J J) 

I FC  III  2190, 219C,  2130 
2  13 C  GO  TO  (2140,  2150,2160)  »II 
2 14 C  GO  TO  2170 
2 15 C  GO  TO  2170 
2161  jO  TO  217 it 
217C  CONTINUE 

FRcQ=0  MEG/6.  263185 
FRcP=0M(ITE**l)/6. 283185 
I  TEH  (3  ,N)  =IT  EM  (3,M)-1 
IF(1TEM(3,M)  )215G  ,2190,21. 0 
2  lb  C  <OHT=2 

OM( 1) =&OHI 
F  UNC ( 1 ) =S INH I 

I F ( FUNG (i i »EQ«  C.0)F UNC (l)=-SlNGO 
GAMA  =  SAM  A 
I LAF=1 

0 M( 2 )  =GOH 1*3  AM  A 
I TER=2 
NFAP=1 
W2=OM(2)**2 
I  Trt  IN=  1 
GO  TO  420 
2  19 C  RETURN 
220  C  RRI TE ( 6, 2  213 )  I  T 

2  21 C  FORMAT (29H  NO  T  GIVEN  FOR  JOINT  TYPE  =  13) 

»0  TO  2190 

2220  4RITE(6,2230 )I 6(KQ) ,KIAP 

2  23  C  F  ORM AT (24K  DETERMINANT  V  OF  JOINT  I3,17H  •  Pf ENGAGE  ORDER  13, 5M 
1.  ) 

GO  TO  2190 

224C  NRlTt(b,2250)I2N 


MYK6510 
MYK6520 
MYK6530 
MYK654C 
MYK6550 
MY  <6560 
MYK6570 
MYK6560 
MYK6590 
MYK6600 
NYK6610 
MYK6620 
MYK6630 
MYK6640 
MYK6650 
MYK6660 
MYK6670 
MYK6680 
MYK6690 
MYK6700 
MYK6710 
MYK6720 
MYK6730 
MYK6740 
MYK6750 
MYK6760 
MYK6770 
MYK6780 
SYK6790 
MY  <68  30 
MYK6810 
MYK6820 
MYK6830 
MYK&840 
MYK6850 
MYK6860 
MYK687Q 
MYK6880 
MYK6890 
MYK6900 
MYK6910 
MYK6920 
MYK6930 
MY  <694  0 
MY  <6950 
MYK696Q 
0  MY <6970 
MYK6980 
MYK6990 
MY  <70  0  0 
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Table  A-12 
(Cent 'd. ) 


225C  FORMAT (25H  8 00 NO ART  NOT  IN  TABLE  *  13) 
SO  TO  2190 
ENO 


MYK7010 

MYK7020 

MYK7Q30 


Table  A-13 

FORTRAN  Listing  of  Subroutine  MEMSET 


SUBROUTINE  NENStT  UA.Id) 

NST 

10 

DIMENSION  I A  (1 ) 

MST 

20 

<=I  A6S  <LOCF<  Id)-LOCf  (I  A)  )  +1 

MST 

30 

9  0  iu  J=1,K 

MST 

40 

I  A( J 1  =  C 

MST 

50 

NO 

HST 

6C 

163 


! 


iU- ROUTINE  MAT  NF5  (A  ,N,  N'JI M  ,JfcT  SCl  ,  C£ T  ,  IROAR) 

HTN 

101 

JlMLNSlON  A{  1) 

MTN 

2C] 

DlhtNSION  PI  VO T (170) ,IN3EX(17C ,2) ,1PIVCT(17Q> 

MTN 

30- 

1( 

iliul  VALENCE ( IRON, JROW)  , (ICOL 

,  JCOD  ,(AMAX,T,SWAP) 

MTN 

40' 

r* 

u 

MTN 

50* 

c 

•JLLCK  100  INITIALIZE 

MTN 

6o; 

r 

w> 

MTN 

70 

if 

I KO  AR=  0 

MTN 

80 

L)  LI  =  OL  TSCL 

MTN 

90 

y  l 

30  41  J=1,N 

MTN 

100 

4i 

I  Pi  VGT  (J)  =f 

MTN 

11C 

JO  2 1 0  1=1, N 

MTN 

120 

y 

MTN 

130 

L/ 

JLOCK  2JC  SEARCH  FOR  PIVOT 

LLcMENT 

MTN 

140 

C 

MTN 

15C 

SC 

A  MA  A  =  C  , 

MTN 

160 

jo  ur  j=i,n 

MTN 

170 

IFCIPIVOT  (J)  “1)60,130,60 

MTN 

160 

D  r 

JO  9C  K=1 ,  N 

MTN 

190 

IF(  IPIvOT(K)  -1) 73  ,9u,290 

MTN 

200 

71 

JK= J+NOIM* (<-l ) 

MTN 

210 

IF  (  auS  (AM AX)  -ABS  (A(JK) )  )  6  0 ,9  0,90 

MTN 

22  0 

v  w 

I  Ho n=j 

MTN 

230 

I GLL=K 

MTN 

240 

1M*X=A  IJK) 

MTN 

250 

SC 

oOt.TINUE 

MTN 

260 

lr.  C 

CONTINUE 

MTN 

270 

nr 

IFC  AMAX)  12C, 30  G , 12C 

MTN 

280 

C 

MTN 

290 

c 

dLCCK  300  INTERCHANGE  ROWS 

TO  POT  PIVOTAL  ELtnENT  ON  DIAGONAL 

MTN 

300 

G 

MTN 

310 

12T 

IFI VGT (ICOL)  =1  PIVOT (XCOL)  +1 

MTN 

320 

IF( IROW-ICOL) 1 31 , 15C, 130 

MTN 

330 

13  r 

3 1 T  =  -QET 

MTN 

340 

JO  140  L  =  1,N 

MTN 

350 

LC=NUIMML-1) 

MTN 

360 

I  RO L=  I  ROW  t  L3 

MTN 

370 

I ClL  =  I COL  *L3 

MTN 

360 

SWAP=A (1ROL) 

MTN 

390 

A (1R0L)=A(ICLL) 

MTN 

4  0  C 

141 

A ( 1 GLL ) =SW  A3 

MTN 

410 

ISC 

I  NOE  X ( 1 , 1 ) =1 RD W 

MTN 

420 

I  NC  E  X  <  1 , 2 )  =1  C3  L 

MTN 

430 

I LOC  =  IGOL ♦NO 1M * (I  COL-1) 

MTN 

440 

PIVOT  <I)=A  (I  LOC) 

MTN 

450 

3  l T  =  C'E  T*P I  VD  T  (  I) 

MTN 

460 

C 

MTN 

473 

c 

dLOCK  400  JIVICE  PIVOT  ROW 

bY  PIVOT  ELEMENT 

MTN 

480 

G 

MTN 

490 

ig  r 

A  ( 1  l  OG )  =  1 . 0 

MTN 

500 

164 
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Table  A-14 
(Cont 'd. ) 


JO  170  L=1,M 

ICLL  =  ICOL*N3lMML-l) 

4(icll>-a(i:ll >/pi*gt*i> 

171  CONTINUE 

i 

C  3L0CK  500  REOOCu  NON-PIOOT  ROWS 

i 

1st  OU  210  L1=1,N 

IF<Ll-ICOL>190 ,2lC,193 
laf  ICuL=NOlM* (ICUL-1) 

L lC  =L1 *ICUL 
T  =  4 (LlC) 
ft  <l1C)  -G.  u 
OO  2 GO  L  =  1,N 
lG=NulM*(l-l> 

_ lo=Ll+LJ 
I CC  = ICOL+LC 

2CC  A  <l1u)=A(L13)-A(ICC>*T 
21 C  C ONT I NOt 

l 

0  3 LUCK  bOO  INTERCHANGE  COLUMNS 

c 

22 i  JO  25G  1=1, X 
=N ♦ 1“ I 

IF(1N0LX(L,1)-INL'lX*L,2I )  2  30,2  50,2  30 
23 f  JROW=lNu£X  (.  ,1 ) 

JCuLslNOtX (L»2 ) 

JrOW=NLIM* (JROW-1) 

JCCL=nCIH* (JCOL-1) 

JO  240  K=1,N 
Kk=  K  +  JrCM 
<0=  K* JCCL 
iWftP=ft (KR) 
ft ( KR)  =  ft (KC ) 
ft (KC)=3WAP 
24 C  CONTINUE 
25  (.  CONTINUE 
RETURN 

C 

C  3L0CK  9000  ERROR  INDICATIONS 

C 

26 C  WRITd(6,27C)  IKOAR 

27  C  FORMAT (31hC  SUBROUTINE  MATNF  4  EkROR 
23  C  CAlL  EXIT 
291  IROAP=l 
*0  TO  260 
33  C  IROAk=-5 
RETURN 
ENU 


MTN  510 
MTN  5Z0 
MTN  530 
MTN  540 
MTN  550 
MTN  560 
MTN  570 
MTN  580 
MTN  590 
MTN  600 
MTN  610 
MTN  620 
MTN  630 
MTN  640 
MTN  650 
MTN  660 
MTN  670 
MTN  680 
MTN  69C 
MTN  700 
MTN  710 
MTN  720 
MTN  730 
MTN  740 
MTN  750 
MTN  760 
MTN  770 
MTN  780 
MTN  790 
MTN  800 
MTN  810 
MTN  820 
MTN  830 
MTN  840 
MTN  850 
MTN  860 
MTN  870 
MTN  880 
MTN  890 
MTN  900 
MTN  9 1 C 
MTN  920 

TYPE  15)  MTN  930 

MTN  940 
MTN  950 
MTN  960 
MTN  970 
MTN  960 
MTN  990 
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TABLE  11-15 

SAMPLE  OATA  OECK  LISTING  FOR  PROGRAM  FILLIN 


- - -r  -r - -m-m-mi w-in-m - t-mrr  CARO  COLUMNS 

00 0 000 000U1 111111112222222222333333333344444444445555555555656666666677777777776 
1234567690*1234567890123456709012345678901234567890123456789012345678901234567690 


FILLIM  TEST  CASE  TYPICAL  MISSILE  AIRFRAME 


1 

0.16 

♦7 

.840 

7.8 

15 

1.16 

♦«  > 

.I>12 

15. 

2.447 

20 

2.75 

♦6 

.629 

20. 

7.002 

25 

4.72 

#8 

•  728 

25. 

11.50 

30 

6.92 

♦8 

1.003 

30.15 

20.13 

35 

3.90 

♦  8 

.783 

35.5 

10.93 

37 

2 

3.63 

♦  8 

37.3 

39 

2.51 

♦8 

4.138 

39.8 

22.15 

45 

3.59 

♦  8 

1.016 

45.4 

24.36 

46 

1 

5.81 

♦  8 

46.8 

.93 

47 

5.81 

48 

•  614 

47.2 

13.63 

48 

3 

1.57 

♦8 

46. 

49 

1.57 

46 

.323 

49.4 

7.92 

55 

1.57 

46 

•  560 

55. 

13.75 

60 

1.57 

48 

1.161 

59.5 

26.46 

61 

4.53 

48 

61.8 

62 

1 

4.53 

48 

62.59 

.62 

63 

4 

3.23 

48 

63. 

66 

2,59 

48 

3.106 

66. 

41.24 

67 

3.56 

48 

.809 

67.97 

11.32 

70 

1 

7.07 

48 

70. 

.12 

71 

1.29 

48 

•  667 

71.38 

19.42 

76 

4.88 

48 

.925 

7.4 

26.13 

77 

1 

4.98 

48 

77.6 

.62 

78 

2 

4.54 

46 

78.25 

79 

4.54 

48 

.846 

79. 

19.89 

60 

1 

8.02 

48 

80.5 

.93 

82 

7.10 

48 

7.075 

62. 

92.66 

90 

5.26 

46 

2.791 

90. 

61.50 

100 

5.26 

48 

3.000 

100. 

92.34 

110 

5.26 

48 

2.883 

110. 

86.76 

120 

5.26 

48 

2.883 

120. 

68.78 

130 

5.26 

46 

2.883 

130. 

66.78 

140 

5.26 

48 

2.883 

140. 

66.76 

150 

5.26 

48 

2.883 

150. 

86.76 

157 

1.20 

49 

157.5 

160 

9.41 

48 

4.466 

160. 

136.91 

166 

1.23 

49 

7.011 

170.4 

94.76 

170 

1 

2.47 

48 

170.5 

.43 

171 

2.47 

48 

1.387 

171,7 

26.71 

i  74 

3.86 

48 

174. 

178 

5.98 

47 

8.351 

177.38 

109.66 

182 

5.98 

47 

2.506 

182.2 

24.63 

191 

37  1 

2.43 

45 

1,132 

30.3 

192 

37  1 

J  1 

2.43 

45 

30.31 

.19  -3 
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Table  \-15 
(•  ont 'd. ) 


- — - - —  CARO  COLUMNS  - - - - - - - - 

0060  COOQOL‘1 111111112222222222333133  333344444444445555555555666666666677777777778 
1234567690*1 2345678901234567090 1234567890123456789 01234567090 12345670901234567890 


193 

37  i: 

2.43 

♦5 

•  081 

32.3 

194 

37  L 

1.62 

♦6 

2.251 

35.3 

18.60 

195 

37  i: 

1  0.09 

♦6 

36.9 

.60  -5 

196 

37  1 

8.09 

*6 

.453 

37.02 

198 

37  V 

8.09 

♦6 

37.3 

315 

78  l; 

9.70 

♦7 

5.049 

72.9 

325 

78  1 

1.21 

♦8 

1.614 

77.3 

326 

78  1 

1  1.21 

♦  8 

78. 

• 

26  -4  .32  -6 

330 

78  L 

1.13 

♦7 

78.25 

265 

48-1 

1  5.66 

♦  8 

48. 

• 

28  -4 

267 

46-1 

5.66 

♦  8 

8.430 

50.5 

7.49 

260 

48-1 

5.66 

♦  8 

4.431 

55. 

7.49 

269 

48-1 

5.66 

♦  8 

9.717 

59.5 

8.20 

271 

48-1 

1  5.66 

♦8 

63. 

• 

62  -4  1. 

1  3 

40. 

1.01 

200. 

70 

58 

3 

7.5 

16. 

26. 

35.5 

40.5 

45. 

48.5 

52. 

57. 

62. 

66. 

69.5 

71. 

76. 

79. 

60. 

01. 

85. 

90. 

95. 

100. 

105 

• 

110. 

115. 

120. 

125 

• 

130. 

135. 

140. 

145 

• 

155. 

160. 

165. 

170 

• 

171. 

176. 

183. 

37  30. 

37 

30.3 

37 

30.32 

37 

32. 

37  35. 

37 

36.89 

37 

37. 

37 

37.3 

70  70. 

5 

78 

75. 

78 

77.5 

78l 

78.01 

78  78.25 

48 

45. 

46 

47.99 

48 

49.5 

48  55. 

46 

59.5 

48 

62. 

48 

63.01 

48  66. 

1 

1  1.0 

1.9 

1.0 

2 

1  .803 

.905 

.757 

3 

1  .583 

.813 

.514 

4 

1  .403 

.706 

.308 

5 

1  .3 

.655 

.186 

6 

1  .2 

.639 

.091 

7 

1  .111 

.579 

.006 

8 

1  .030 

.521 

-.043 

9 

1  -.068 

.353 

-.103 

10 

1  -.149 

.212 

-.131 

11 

1  -.195 

•  094 

-.117 

12 

1  -.220 

-.025 

-.083 

12 

1  -.234 

-.081 

-.048 

14 

1  -.280 

-.257 

.015 

15 

1  -.311 

-.397 

.049 

Table  A-15 
(Cont 'd. ) 


-  COLUMNS  - - - - - 

0 00  CO  000011 111  11111222222  222233333  3  33334444444444555555555566666666667777777777} 
l 23456v6 90123<*567850 12 34567 8901234567ft 90 1234567890 12 34 567690123456789C 123 4567691 


16 

1 

-.315 

-.435 

.069 

17 

1 

-.311 

-.436 

.0  79 

18 

1 

-.304 

-.501 

.126 

19 

1 

-.306 

-.616 

.202 

20 

1 

-.296 

-.663 

.250 

21 

1 

-.280 

-.701 

.281 

22 

1 

-.260 

-.710 

•  308 

23 

1 

-.242 

-.709 

.324 

24 

1 

-.223 

-.732 

.342 

25 

1 

-.198 

-.755 

.344 

26 

1 

170 

-.674 

.3  36 

27 

1 

-.143 

-.641 

.3  21 

28 

1 

-.113 

-.571 

.258 

29 

1 

-.079 

-.504 

.268 

3  C 

1 

-.043 

-.420 

.229 

31 

1 

.030 

-.217 

.141 

32 

JL 

.  069 

-.112 

.09 

33 

1 

.111 

.072 

.0? 

34 

1 

.148 

.176 

-.06 

35 

1 

.161 

.215 

-.068 

36 

£ 

.207 

.392 

-.173 

37 

1 

.268 

.567 

-.278 

■*8 

1 

.797 

-10.28 

-.64 

39 

1 

.78 

-9.35 

-.6 

40 

1 

.65 

-5.6 

-.26 

41 

1 

.53 

-3.0 

-.07 

4? 

1 

.4? 

-0.5 

.17 

43 

1 

.362 

.691 

,278 

44 

1 

.36 

.69 

.275 

45 

1 

.354 

.687 

.  26« 

46 

1 

-.345 

-.429 

-.036 

47 

1 

-.325 

-.436 

.013 

48 

1 

-.321 

-.439 

.0  41 

49 

1 

-.319 

-.44 

.046 

50 

1 

-.311 

-.441 

,049 

51 

1 

.2 

.635 

.09 

52 

1 

.135 

.59 

.01 

53 

1 

.103 

.635 

-.155 

54 

1 

-.01 

.68 

-.265 

55 

1 

-.10 

.54 

-.36 

56 

1 

-.161 

.487 

-.422 

57 

1 

-.15 

.19 

-.13 

58 

1 

-.19 

f  1 

-.115 
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TA9LE  A-16 

SAMPLE  DATA  DECK  LISTING  ECR  PROGRAM  JOINTS 


- -  CARO  COLUMNS  - - - - - - - 

039000300111111111 122222222223  333  333  33  344444  444445555555555666666666677777777778 
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PROGRAM  JOINTS  TEST  C«SE 


4 

A 

3 

3  1  10 

4  78 

2 

0. 

264 

1,0 

1 

.  0  1.0 

1.0 

1 

.  0  1.0 

9.7 

ue 

.  153. 

1C 

11 

.  l 

♦8  1.  *8 

2 

21 

26 

.5 

*7  5.  *7 

2 

27 

35 

.  i 

♦8  1.  *8 

2 

4* 

58 

.  i 

♦6  1.  *6 

2 

1 

l 

.993056*00 

.996656*00 

2 

l 

•826186*00 

.916186*00 

3 

l 

.777036*00 

.894716*00 

4 

l 

.665456*00 

.840666*00 

c. 

l 

.539956*00 

.778726*00 

6 

l 

.412826*00 

.714426*00 

7 

l 

.374096*00 

.704476*00 

8 

l 

.374096*00 

.704476*00 

9 

l 

.719136*00 

.675426*00 

10 

i 

.191966*00 

.613906*00 

11 

i 

.159796*00 

.597236*00 

12 

l 

.159796*00 

.597236*00 

17 

i 

.150426*00 

.592376*00 

14 

l 

.131446*00 

.582536*00 

15 

l 

.1314 .6*00 

.582536*00 

16 

l 

.101066*00 

.555066*09 

17 

i 

-.148396-01 

.419386*00 

18 

i 

-.937036-01 

.294496*00 

19 

i 

-.133275*00 

.222846 *00 

20 

i 

-.143226*03 

.194756*00 

21 

l 

-.143226*00 

.194756*00 

2? 

l 

-.148226*00 

.182496*00 

23 

l 

-.148226*00 

.182496*00 

24 

l 

-,18c786*30 

.903876-01 

25 

i 

-.206656*00 

.250426-01 

2'=' 

i 

-.226176*00 

-.423206-01 

27 

i 

-.226176*00 

-.423296-01 

28 

l 

-  .237086*00 

-.922676-01 

29 

l 

-.292746*00 

-.325676*00 

30 

l 

-.294646*00 

-.333816*00 

31 

l 

-.29 4646*00 

-.333816*00 

3? 

l 

-,300856*00 

-.360426*00 

33 

l 

-.7008*6*00 

-.  360476*00 

34 

i 

-.308086*00 

-.301406*00 

35 

l 

-.311416*00 

-.429916*00 

36 

l 

-.311416*80 

-.429016*00 

78  0.15  0.001  .9 


.99142  c*  00 
•785596*00 
.736636*00 
.608056*00 
.461336*00 
.317136*00 
.277646*00 
.  2 7764c*  0 0 
.216276*00 
.862906-01 
.578246-01 
.578246-01 
.496326-01 
.32737P-01 
.327376-01 
.968476-02 
-.66610E-01 
-.985906-91 
-.111555*00 
- ,110306*00 
-.110306*00 
-.109696*00 
-.109606*00 
-.105116*00 
- .8*0966-01 
-.678046-01 
-.678046-01 
- .509856-01 
.318536-01 
.344569-01 
.344566-01 
. 4296^6-01 
.429636-01 
.528676-01 
.712476-01 
.712476-01 
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37 

1 

-.310756*00 

-.459136*00 

.918056-81 

38 

1 

-.382336*80 

-.589736*00 

.198736*80 

39 

1 

-.278196*00 

-.607686*00 

.276816*00 

40 

1 

-.242246*00 

-.717396*00 

.323246*00 

41 

1 

-.196716*80 

-.713576*00 

.338326*00 

42 

1 

-.142456*00 

-.632156*00 

.317486*80 

43 

1 

-.7S407E-01 

-.498836*00 

.264266*80 

44 

1 

-.752926-02 

-.317366*00 

.183056*00 

45 

1 

.490416-01 

-.141286*00 

.108636*00 

46 

1 

.694656-91 

-.821996-01 

.625466-01 

47 

1 

.155486*00 

.209536*00 

-.652116-01 

48 

1 

.156306*00 

•  217456*0  0 

-• 66965E-01 

49 

1 

•156366*00 

.212456*00 

-.669656-01 

50 

1 

•  1 6575000 

.237786*00 

-.036016-01 

51 

1 

•186306*00 

.305516*00 

-.123446*00 

52 

1 

.21903E*00 

.426506*00 

-• 19370E*00 

53 

1 

.261036*00 

•  54700E+0  0 

-.266006*00 

54 

1 

.261036*60 

.547006*00 

-.266OOE*O0 

55 

1 

,780006*00 

-.935006*01 

-.600086*00 

56 

1 

.779436*00 

-.931906*01 

-.59867E*O0 

57 

1 

.650716*03 

-• 56i55E*0 1 

-• 20149E*O0 

58 

1 

.546726*00 

-.333776*01 

-.733776-01 

59 

1 

.410796*00 

'.318956*00 

.187146*80 

60 

1 

.361696*00 

.697306*00 

.270576*00 

61 

1 

.363776*00 

.586736*00 

.264506*00 

62 

1 

.359606*00 

.609806*00 

.274536*00 

63 

1 

.354806*00 

.687006*00 

.260006*10 

64 

1 

.354006*00 

.687006*00 

.268006*00 

65 

1 

-.334336*00 

-.432736*00 

-.586676-02 

66 

1 

-.320516*00 

-.430966*00 

.384116-01 

67 

1 

-•32020E*00 

-.439686*00 

.466006-01 

68 

1 

•».3i933E*00 

-.439966*80 

.450756-01 

69 

1 

-.311006*00 

-.441006*00 

.498006-01 

70 

1 

-.311006*00 

-.441006*00 

.490006-01 

71 

1 

.134786*00 

.589856*08 

.973246-02 

72 

1 

.133826*00 

.877276*00 

12508E*08 

73 

1 

.824556-01 

.806826*00 

17500E*08 

74 

1 

-.180006-01 

.689096*00 

-.265006*00 

75 

1 

-.100806*00 

.541006*00 

-.360006*00 

76 

1 

-.185406*00 

,465006*00 

-.446806*80 

77 

1 

-.149876*00 

.198306*00 

-, 13OO5E*80 

78 

1 

-.149876*00 

.198306*00 

-.130056*00 

1 

1 

-.231766-01 

-.111766-01 

-.285886-01 

2 

1 

-.231766-01 

-.111766-01 

-.285886-01 

3 

1 

-.198675-01 

-.962086-02 

-.228956-01 

4 

1 

-  .247686-01 

-.128016-01 

-.205376-01 
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5 

1  -.218306-01 

-•  118396-0  1 

-.247616-01 

6 

1  -.256956-01 

-.129966-01 

-.291456-81 

7 

1  -.212706-01 

-.108826-01 

-.237526-01 

8 

1  -.212706-01 

-.108826-01 

-.237526-01 

9 

1  -.226956-01 

-.107576-01 

-.253436-0-1 

10 

1  -.226276-01 

-.117276-01 

-.200246-01 

11 

1  -.222226-01 

-.355566-02 

-.211116-81 

12 

1  -.208576-01 

-.165716-01 

-.140006-01 

13 

1  -.235246-01 

-.121926-01 

-.208186-01 

14 

1  -.239236-01 

-.123996-01 

-.211716-01 

15 

1  -.239236-01 

-.123996-01 

-.21171E-01 

16 

1  -.214056-01 

-.228296-01 

-.152406-01 

17 

1  -.193126-01 

-.279556-01 

-.101956-01 

18 

1  -.168436-01 

-.305626-01 

-• 55264E-02 

19 

1  -.174946-01 

-  317436-01 

-.573996-02 

20 

1  -.162006-0: 

-.282006-01 

-.560006-0? 

21 

1  -.714296-0? 

-.348006-01 

.971436-02 

22 

1  -.122296-01 

-.299906-01 

• 14927E-D? 

23 

1  -.122296-01 

-.299906-01 

.149276-02 

24 

1  -.128126-01 

-.314186-01 

.156396-02 

25 

1  -.947166-02 

-.332286-01 

.891186-02 

26 

1  -.714296-02 

-.348006-01 

.971436-02 

27 

1  -.920006-02 

-.352006-01 

.126006-01 

28 

1  -.915416-02 

-.378136-01 

.129656-01 

29 

1  -.949046-02 

-.406646-01 

.130306-01 

30 

1  -.928006-02 

-.352006-01 

.  12660E-01 

31 

1  -.400006-02 

-.380006-01 

.200006-01 

32 

1  -.959466-02 

-.411116-01 

.131426-01 

33 

1  -.959466-02 

-.411116-01 

.131426-01 

34 

1  -.968666-02 

-.415056-01 

.  13268E-01 

35 

1  -.400886-02 

-.380086-01 

. 200 00E- 01 

36 

1  .175806-02 

-. 16250E-0 1 

.  U7506-01 

37 

1  .82451 6-03 

-.178756-01 

.128346-01 

38 

1  .929966-03 

-.172796-01 

.128056-01 

39 

1  •  J  15;‘)  06-02 

-.656416-07.' 

.715986-02 

40 

i  .386796-02 

-.188286-02 

.  4‘07266-OF 

41 

1  .495266-02 

.167496-0? 

•  776 17E- 03 

42 

*75866-02 

.119296-81 

-.312006-02 

43 

1  .<.80156-02 

•  148  8  56-0 1 

-.623136-0? 

44 

1  .734006-02 

.197406-01 

-.888006-02 

45 

1  .778706-02 

.242406-01 

-.104296-01 

46 

1  .791066-02 

.246246-01 

- .  lt)595E-01 

47 

1  .875726-02 

.291556-01 

-.175396-01 

48 

1  .740006-0? 

.208006  *01 

-.140006-01 

49 

1  .920006-02 

.354006-01 

-.210006-01 

50 

1  .887316-02 

,292536-01 

-.172056-01 
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51 

1  .899206-02 

.296456-01 

-.174356-01 

52 

1  .871436-02 

.250006-01 

-.150006-01 

53 

1  .87143f-0? 

.250006-01 

-.150006-81 

54 

1  .871436-0? 

.250006-01 

-.158006-01 

55 

1  -.566676-01 

. 318  006*0 1 

.133336*00 

56 

1  -.566676-01 

•  318006*0 1 

.133336*00 

57 

1  -.566676-01 

.310006*01 

.133336*00 

58 

1  -.408896-01 

• 89668E*0 0 

•78299E-01 

59 

1  -.306886-01 

.638166*00 

.571436-01 

60 

1  -.306886-01 

.630166*80 

.571436-01 

61 

1  -.200006-?? 

-.100006-01 

-.233336-01 

62 

1  -•200006-'>  i 

-.100006-01 

- . 23333E-0! 

63 

1  -.200006-01 

-.100086-01 

-.233336-01 

64 

1  -.200806-01 

-.10*006-01 

-.233336-01 

65 

1  .444446-0? 

-.155566-02 

» 1O889E-01 

66 

1  .355876-02 

-.158636-02 

.114156-01 

67 

1  .160806-0? 

-.128006-02 

.112006-81 

68 

1  ,333336-01 

-.416676-02 

.125006-81 

69 

1  .333336-01 

-.416676-02 

.125006-01 

70 

1  .333336-01 

-.416676-02 

•  125OOE-01 

71 

1  -.0207 

-.0283 

-.0202 

72 

1  -.0207 

-.0283 

-.0202 

73 

1  -.205456-81 

-.281826-81 

-.200006-7! 

74 

1  -.205456-01 

-.281826-01 

-.200006-01 

75 

1  -.244806-01 

-.212006-01 

-.248006-61 

76 

1  -.244006-01 

-.216006-01 

-.24800E-01 

77 

1  -.133786-01 

-.301006-01 

.0015056 

78 

1  -.13378E-01 

-.301086-01 

. 0015056 

1 

0.16  *7 

.040  7 

.8 

15 

1.16  *8 

.412  15 

.  2t  447 

20 

2.75  *8 

.629  20 

.  7.082 

25 

4.72  *8 

.728  25 

.  1 i.50 

30 

6.92  *8 

1.003  30 

,15  20.13 

35 

3,90  *8 

.783  35 

.5  10.93 

37 

2  3.83  *8 

37 

.3 

39 

2.51  *8 

4.138  39 

.8  22.15 

<♦5 

3.59 

1.816  45 

.4  24.36 

46 

1  5.81  *8 

46 

.8 

47 

5.81  +8 

.614  47 

.2  13.83 

48 

3  1.57  *8 

48 

49 

1.57  «8 

.323  49 

.4  7.92 

55 

1.57  *6 

,560  55 

.  13.75 

60 

1.57  *8 

1.161  59 

.5  28.46 

61 

4.53  »8 

61 

0@ 

62 

1  4.83  *8 

62 

.59 

63 

4  3.23  *0 

63 
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66 

? .  5  9 

if 

3.106 

66. 

41 .24 

67 

3.56 

.809 

67.97 

11.32 

7  C 

1 

7.07 

♦  3 

70. 

.12 

71 

1  .29 

♦  8 

.687 

71.38 

19  .42 

76 

4.89 

♦  8 

.925 

77.4 

26.13 

77 

1 

4.89 

♦  8 

77.6 

.62 

7« 

? 

4.54 

♦  8 

7».  25 

?q 

4.54 

♦  8 

.946 

79. 

19.09 

80 

1 

9.32 

♦  0 

8  0.6 

.93 

»? 

7.10 

♦  8 

7.076 

Sc. 

92.66 

QP, 

5.26 

+  9 

2.791 

90. 

91 .30 

1  00 

5.26 

♦  9 

3.000 

100. 

92.34 

1  10 

5.26 

♦  8 

2.893 

110. 

86  .78 

1  20 

5.26 

♦8 

2.893 

120. 

88.78 

1  30 

5.26 

♦  9 

2.893 

130. 

88.79 

1  40 

5.26 

♦  8 

2.893 

140. 

88.78 

1  50 

5.26 

♦  9 

2.883 

150. 

88.78 

1  57 

1.20 

♦9 

1 c  7 , 5 

1  60 

9.41 

♦  8 

4.468 

160. 

138.91 

1  *.« 

1.2  3 

♦  9 

7.011 

170.4 

94.76 

1  70 

1 

2.47 

♦  8 

170.5 

.43 

1  71 

2.47 

♦  8 

1.387 

171.7 

26.71 

1  74 

3.08 

♦  8 

174. 

179 

5.98 

♦  7 

8.351 

177. 3" 

10°. 66 

18? 

5.98 

♦  7 

2.508 

10  2.  2 

24  .63 

1  11 

37 

1 

2.43 

♦  5 

1.13? 

3  0.3 

1  92 

77 

1 

1 

2.43 

♦  5 

30. 31 

.19  -3 

1  93 

37 

1 

2.43 

♦5 

.081 

32.3 

1  94 

37 

1 

1.62 

♦  o 

2.251 

35.  3 

10.60 

1  95 

37 

1 

1 

9.09 

♦  6 

36.9 

.90 

1  96 

3  7 

1 

8.09 

♦  6 

.453 

37,02 

198 

\7 

1 

8.09 

<  6 

37.  3 

3  15 

78 

L 

9.70 

♦  7 

5.0  49 

72.Q 

3?5 

78 

1 

1.21 

♦  8 

1.614 

77.3 

7  3* 

79 

1 

1 

1.21 

♦  8 

78. 

.26  -4  .32 

3  30 

78 

1 

1.13 

♦  7 

78.25 

?65 

48 

-1 

1 

5.66 

♦  8 

4?. 

.28  -4 

’67 

48 

-1 

5.66 

♦8 

0.430 

5  0.5 

7.49 

?  48 

48 

-1 

5.66 

♦  8 

4.431 

55. 

7.4  9 

">69 

4  8 

-1 

5.66 

♦8 

9.717 

59.5 

8  .20 

7  71 

48 

-1 

1 

5.66 

♦  8 

63. 

.6?  -4  1. 

1 

3 

40  . 

1.0? 

20  0. 

/ 
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Table  A-17 


Key  Output  Data  from  Sample  Data  Deck 


Pa rameter 

Iteration 

0 

i 

2 

Cost  Functions 
Overall 
Frequency 
Mode  Shape 

..68164  E  +  12 
.17047  E  +  12 
.51117  E  +  12 

.65905  E  +  11 
.39695  E  +  11 
.26210  E  +  11 

.36836  E  +  11 
.96240  E  +  10 
.27212  E  +  11 

Compliances 

C1 

C2 

c3 

c4 

m 

.83152  E  -  7 
.12038  E  -  6 
.60380  E  -  7 
.69565  E  -  5 

.53820  E  -  7 
.80930  E  -  7 
.40304  E  -  7 
.59244  E  -  5 

Frequencies 

fl 

f2 

f3 

.4888485  E  4-  2 
.1435402  E  +  3 
.1435414  E  +  3 

.4894103  E  +  2 
..1078903  E  +  3 
.1441162  E+3 

.5546776  E  +  2 
.1124721  E  +  3 
.1485364  E  +  3 
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